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まえ が ぎ き 


プロ グラ ミン グ に は ,。 知 的 な パズル と いっ た 面 が あり ます . 

学習 者 や 非 専門 家 プ ログ ラマ に と っ て は , 時 間 さ きえ あれ ば どん な プロ グラ ム で 
も 書け る と いう 信念 が あり ます ,. キー ボー ド に 向かっ て いる と 次 々 と アイ デア が 
わい て き て , 知ら ぬ ま に 素晴らしい” プロ グラ ム が で き て いた と いう 経験 は 誰 
に で も ある こと で し ょ う . 

は じ め て プロ グラ ム を 始め る 人 , と くに 独習 者 に と っ て , BASIC 言 語 は まこ と 
に 良い 環境 を 提供 し て くれ まし た . 対話 型 で , “呼べ ば 応え る” コンピ ュー タ は , 
知ら ぬ ま に 手足 の ご と くく 働く 道具 と な り ま し た . 

時 と と も に ハー ド が 進歩 し た ば か り で な く < く , BASIC 上 自体 も 進歩 し , つ い に Quick 
BASIC が 登場 し まし た ., それ に より , それ まで の 制約 の いく つか が 克服 され , プ 
ログ ラミ ング 環境 は 一 層 充 実 し た も の に な り ま し た . 

本 書 を 書く 動機 と な っ た の は , Quick BASIC を 知る た め に 実際 に ユー ティ リティ 
プロ グラ ム を いく つも 作成 し て みた 経験 で す 。 プ ログ ラミ ング を 通じ て , いく つ 
か の 制約 に ぶつ か り は し まし た が , 基本 的 に は これ な ら ば 充分 に 実用 に な る こと , 
アル ゴリ ズム の 記述 に も 適し て お り , 学習 用 に も 勧め られ る こと が 明らか に な り 
まし た . そこ で 。 ぜひ 多く の 同好 の 士 に 紹介 し た いと 考え まし た 。 

構成 と し て は , プロ グラ ミン グ の 基礎 と な る , デー タ 構 造 と アル ゴリ ズム に つ 
いて の 解説 を 前 半 に まとめ 。 後半 に プロ グラ ミン グ の 例 を 説明 する こと に し まし 
7G。 

執筆 は , 小池 と 森 が 次 の よう に 分 担 し ま し た . 

は に 02( に 。 上 上 。 上 。 上 、 や 上 すす 。 の 。 か やみ ば 小池 

1 、 ーー 。 必 、 。 タク 。 4 条 

最後 に , 構想 か ら 完 成 ま で 1 年 余り も か か り , いろ いろ ご 迷惑 を か け ま し た が , 
それ に も か か わら ず 出 版 に いた り ま し た こと を , 編集 部 の 加藤 氏 。 ( 邊 パピ ルス の 
高松 さん に 感謝 いた し ます . 

1990 年 8 月 著 者 
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パー ソナ ルコ ンピュータ に お ける BASIC 発 展 の 足 ど り は , マイ クロ ソフ ト 社 の 
BASIC 発 展 の それ で も あり ます . 現 在 ま で いろ いろ な BASIC が 誕生 し て きま し た 
が 。 生き延び て いる の は 。 数 の 上 で も ほとん ど あ り ま せん (日 本 で は , BASIC/98 
が 頑張 っ て は いま す が ), 

BASIC は , よく 知ら れ て いる よう に , TSS(Time Sharing System) 環境 下 で プ 
ログ ラミ ング 教育 を する 目的 で , 1965 年 ,。 ダ ー ト マス 大 学 に お いて 本.D. ケ メ ニ ー 
と T.E. カー ツ の も と で 開発 され まし た . その 後 1975 年 時 点 で は , FORTRAN に 
つぐ 人 気 の あ る 言語 と な り ま し た , これ ら は ,。 いずれ も TSS の も と で 動く 対話 型 
言語 で し た 。 

一 方 。1971 年 に イン テル 社 に より 。 は じ め て の マイ クロ プロ セッ サ が 開発 され 
まし た . 1975 年 に は 。 ミッ ツ 社 が マイ クロ コン ピュ ー タ を 開発 し ,。 その 上 で 動く 
4K バ イト と 8K バ イト の 大 き さ の BASIC を 発表 し まし た . この BASIC を 開発 し た 
の が 。B. ゲー ツ と P. アレ ン で , この 2 人 は の ちの マイ クロ ソフ ト 社 の 創立 者 と な 
は 業 も 巡 。 

一 方 。 ア マチ ュ ア の 間 で も ,。 マイ クロ プロ セッ サ を 使用 し て 小さ な マイ クロ コ 
ンピュータ の 製作 が 行わ れ ま し た . 当時 は ROM も RAM も 高価 で あり , 技術 的 な 
理由 か ら も , 小さ な メモ リ し か 持っ て いま せん で し た . そこ で , 2K バ イト の ROM 
の 上 に も 載る TINY( 小 さ な ) BASIC が 開発 され まし た . わが 国 で も , 東大 が 中 心 
に な っ て 全国 の ホビ ー イ スト や 大 学 ・ 研 究 機関 に 広め ゆま し た . 

1977-78 年 に か け て , パ ー ソ ナル コン ピュ ー タ と 呼べ る 3 種 の マシ ン , PET,。 Apple 
II, TRS-80 が それ ぞ れ , コモ ドー ル , アッ プル , タン ディ ラジ オシ ャ ッ ク 社 か ら 
発表 きれ まし た , それ ら は , いずれ も 8KBASIC に 拡張 機能 を 加え 合わ せ た 本 格 的 
な BASIC を 搭載 し て いま し た . 

庄 は 前 後 し ます が , 8KBASIC は , 現在 の BASIC の 原型 と な っ た も の で , ABS, 
ATN, COS,。 SIN,。 EXP。 LOG, SQR, RND な どの 数 学 関 数 。 LEFT$, 
RIGHT$。 MID$ な どの 文字 列 関数 ,ASC, CHR$, STR$, VAL な どの 型 変換 関 
数 を 持ち も 。 それ ら は Quick BASIC (以下 QB と 略す ) に も その まま 残っ て いま す . 
また , 24 ビ ッ ト の 単 精度 数 や 16 ビ ッ ト の 整数 も 引き 継が れん てい ます. 1 行 の IF/ 
THEN/ELSE も 残さ れ て いま す . QB で は 使用 頻度 は 減少 し た と は 言え ,GOSUB/ 
RETURN も 健在 で す . の ち に 強化 され る こと に な る , グ ラフ ィ ッ クス , サウ ンド , 
ファ イル 処理 を 別に すれ ば , 8KBASIC の 骨格 は , その 後 ず っ と 変化 し て いな いと 
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言え ます 。, 

マイ クロ ソフ ト 社 の Microsoft BASIC (以下 MBASIC と 略す ) は , OS CP/M 
上 で 動く も の が MBASIC 4。 その あと に 改良 され た バー ジョ ン が MBASIC 5 と 
呼ば れ ま す . 日 本 で 広く 用 いら れ て いる N。。-BASIC の 基本 的 な 機能 は この MBASIC 
5 に 同等 と 考え られ ます . 

BASIC は QB が 登場 する まで は , イ ンタ ブリ タ で あっ て 。 対話 型 で 使用 で きる の 
で 使い よい が 。 速度 は 遅い と 言う の が 定説 で し た 。, 実行 速度 が 遅い こと に 対し て 
は BASIC コ ユン パイ ラ BASCOM で 対応 し まし た が , 使い 勝手 の 悪さ は 否定 で きま せ 
ん で し だ な 。 

対話 型 に 近い 環境 と コン パイ ル 速 度 の 速 さ を 売り も の に し た TURBO Pascal が 
登場 し た の は , MBASIC 4 の 時 代 で , 日 本 で も 1985 年 頃 か ら 普 及 し て きま し た . 
8 ビッ ト の CP/M の 時 代 で も , 高速 性 に ひか れ て TURBO Pascal を 使用 し た も の 
で す が ,16 ビ ッ ト の MS-DOS の 時 代 に な り , ま と も な 仕事 に 使う の な ら ば TURBO 
Pascal と いう 時 代 に な り ま し た 。 それ に 対し て , マイ クロ ソフ ト 社 は , BASIC の 
改良 に つと め , TURRO Pascal の 新しい バー ジョ ン 4.0 以 降 の バー ジョ ン に 対抗 可 
能 な Quick BASIC を 発表 し まし た . 統合 環境 版 と 呼ば れる 操作 方 法 は TURBO 
Pascal の それ に きわ め て よく 《 似 て お り 。 コン パイ ラ で あり な が ら 。 イ ンタ プリ タ 
並み の デバ ッ グ し や すさ を 実現 し て いま す 。 能力 的 に も Pascal に 匹 散 する も の を 
持ち , Pascal に 流れ た ユー ザ を 引き 戻す こと も で きる くら い に な っ た と 言え ます . 

競争 は 進化 の 源 と 言わ れ ま す が ,。 TURBO Pascal と の 競争 が この 優れ た Quick 
BASIC を 生み 出し た こと に 感謝 すべ き で し ょ う ( 逆 に 言え を ば , 多く の 人 が BASIC 
の 不備 一 一 すべ て が 1 個 の プロ ッ ク で あり ロー カル 変数 が 持て な いこ と , 複数 行 
の IF/THEN/ELSE が 不可 能 な こと な どー 一 を 雑誌 等 で 指摘 し て いた に も か か わ 
ら ず , また , 有効 桁 数 が 7 桁 あ りな が ら 印 刷 上 は 6 桁 に 丸め て し まう こと な ど に 
対し て も , マイ クロ ソフ ト 社 は 何 の 手 も 打 た な か っ た の で すか ら , も し , TURBO 
Pascal を 作っ た ボー ラン ド 社 と いう ライ バル が 出現 し な けれ ば , BASIC は まだ ずっ 
と ほお っ て お か れ た の か も し れ ま せん ). 

以上 の よう に 書く と , BASIC の 歴史 は 良く も 悪く も マイ クロ ソフ ト 社 の それ の 
よう に 思わ れ ま す が , マイ クロ ソフ ト 社 以外 の アメ リカ の 各社 や 。 ヨー ロッ パ や 
ソ連 で は 独自 の 発達 を し て いま す . た と えば , BASIC/F (ソ連 ) で は , モジ ュー ル 
や QB の DO/LOOP に 相当 する ルー プ 構 造 は すでに 実現 され て いま す . 同様 に ,ECMA 
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BASIC( ヨ ー ロ ッ パ ) に は DO/LOOP が ,。 BetterBASIC( ア メリ カ ) に は DO/END 
. . DO や DO/REPEAT な ど が あり ます . 

また ,。MBASIC の “ 臣 ろ し いい "FIELD 文 を 使用 し な い フ ァイル アク セス は 。 前 
出 の BASIC/F。 ECMA BASIC の ほか に CBASIC や RSBASIC( 共 に アメ リカ ) な 
ど で は 早く か ら 実 現さ れ て いま す . 

た だ 。 ヨ ー ロ ッ パ や ソ連 の BASIC は 日 本 に は 入っ て きま せん し ,。 マ イク ロ ソ フ 
ト 社 以外 の 各社 の BASIC は 大 き な 市 場 を 持つ こと が で き な か っ た た め に , TURBO 
Pascal の よう に マイ クロ ソフ ト 社 の 脅威 と は な り 得 な か っ た と 言え ます 。 良い も 
の が , 市 場 を 支配 する と は か ぎら な い 例 で す . 


ゅ 参考 文献 
(1) 小池 慎一 「 マ イコ ン と BASIC」 マイ コン ピュ ー タ CQ 出 版 社 No. 13, 
p2-11 (1984) 
(2) A.E. コル チャ ク ,。 小池 訳 「BASIC 言 語 比 較 研 究 一 一 BASIC 言 語 の 本 質 と 
パソ コン の 歴史 ] 技術 評論 社 (1989) 
( 1 ) は マイ コン 登場 か ら 1983 年 頃 ま で の 。, 日 米 の BASIC に つい て まとめ られ て 
いる 。 
(2 ) は アメ リカ ヨーロッパ 。 ソ 運 に わた っ て 。, パ ー ソ ナル コン ピュ ー タ 用 BASIC 
の 発展 に つい て まとめ られ て いる 。. 








UICK BA8IC 


1 の 特徴 と 還 意 上 


Quick BASIC( 以 下 QB と 略す ) は , 従来 の MBASIC の 単なる 拡張 版 で は な く , 
デー タ 構造 や 制御 構文 の 点 で Pascal に 忠 英 する ほど の 機能 を 含ん で いま す . BASIC 
の 使い に くさ 。 ス ピー ド の 遅 さ か ら 。 Pascal や C へ 移っ た 人 を 再び BASIC へ 呼び 
戻す だ け の も の は あり ます . 

し か し 。 QB は BASIC の 仕様 を 引き ずっ て いる た め 。, せっ か く こ こま で や っ た の 
だ か ら も う 少 し 改良 し て ほし か っ た と 思わ れる 点 も 多く あり ます . また , Pascal 
や C に 似 て いま す が 異 な る 点 も あり ます . そこ で , 本 草 で は QB を 使用 する うえ で 
の 留意 事項 に つい て まとめ て み ま す . 








1 .1.1 宣言 な し の 変数 の 使用 


BASIC の 特徴 の ひひ と つ は , 宣言 な し で 変数 が 使用 で きる こと で す 。, 言い 換え る 
と , 新しい 変数 の 登場 が すなわち 変数 の 宣言 と いう こと で す . この 人 性質 は 。 さ ほ 
ど 大 きく な い プ ログ ラム を 作成 する 場合 に は 便利 で す が 。 変数 名 の タイ プ ミ ス を 
チェ ッ ク で き な い こと (タイ プ ミ ス は 新しい 変数 の 宣言 を 引き 起こ す ), 後述 の よ 
うに , 変数 の 型 に つい て の プロ グラ マ の 注意 が お ろ そ か に な る こと を 引き 起こ し 
ます . プロ シー ジャ の 引数 の 型 が 厳密 に チェ ッ ク さ れる の に 注意 し て プロ グラ ミ 
ング し て いる と , 宣言 な し の 変数 の 使用 に は 違和感 を 覚え ます . 

また , プロシージャ 内 で ロー カル 変数 を 用 いた QB の プロ グラ ム を 。Pascal や C 
に 移植 する 場合 は 次 の 点 に 注意 する 必要 が あり ます . プロ シー ジャ 内 で ロー カル 
変数 の 宣言 が な され て いな い の で 。 グ ロー バル な 変数 と 同名 の も の が 用 いら れ て 
いる と 。 移植 先 で は ロー カル で は な く な っ て し まい ます 。 Pascal に 似 て いる か ら 
と 言っ て も ,。 うっ か り し て いる と 。 発見 の 難し い バ グ と な り ま す . 

QB で は 。,。 変数 の 宣言 が すべ て DIM で 始ま り ま す . これ は , DIM が Dimension の 
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シン 


1.1 Quick BASIC の 特徴 と 留意 点 


略 と する と 。 抵抗 が あり ます . BASIC で の 変数 の 宣言 が 従来 は DIM し か な か っ た 
の で 。 それ を 流用 し た と も 考え られ ます が ,。 コマ ンド の 名 前 は も と も と の 語 の 持 
つっ 意味 か ら そ れる の は 好ま し く あ り ま せん (リス ト 1.1.1). 

リス ト 1.1.1 DIM に よる 宣言 の 例 






pm s1 AS STRTNe・ 10 0 MNO 
IM SHARED NF AS INTEGER 、。 
s AS Ptr mri 1 


き 1.1.6 1 行 が ひと つの 文 


BASIC で は 。 文 は 1 行 で 書か れん ます (マル チ ス テー トメ ント も あり ます が ,。 ここ 

で は と りあ げ ま せん )。 し た が っ て ,。 改行 は 新しい 文 を 意味 し ます . 

Pascal や C で 書か れん た プロ グラ ム を QB に 移す 場合 , QB で は 文 を 1 行 に 書か な け 
れ ば な ら な い の で 困る こと が あり ます . た と えば ぱ , 代入 文 の 右辺 が 長い 式 の 場合 
ある い は 式 そ の も の は 長く な く て も , わか りや すい 変数 名 を 使用 する た め に 文字 
数 が 多く な る と ,。 1 行 が 長く な っ て 読み に くく な り ま す . IF 文 の 条件 が 長い 式 に 
な る 場合 も 同様 で す . 継続 行 の 使用 が 可能 に な る よう な 方 法 が と れる と よい と 思 
いま す が ( リ スト 1.1.2). 

% リ スト 11.2 は 1 行 に 春 か ね ば な ら な い 





SMemderdpew ・ SOKCCSmotamwaret - sumorData ・ 2/NumberorData) /(NumberOfData - 1)) 


1.1.3 実数 と 整 数 


BASIC で は , 多く の 場面 で 実数 は 整数 と 同様 に 使え を ます. た と えば ,。 配列 の 添 
字 に 実数 を 使用 する こと は な ん ら 差 し 支え ありま せん. 代入 の 場合 も , 実数 型 の 
変数 が 整数 値 を と っ て いれ ば ぱ , 型 変換 の 関数 を 使用 する こと な く , 代入 可能 で す . 

し か し , プロ シー ジャ の 引数 が か らむ と , 型 チ ェ ッ ク が 行わ れる た め , 区 別 を 
する 必要 が あり ます . 従来 の BASIC の 感覚 で コー ディ ング し て いる と , コン パイ 


 』 
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ル エ ラー で 幸 こ ずる こと が あり ます 。 

ただ と えば リス ト |I.1.3 で は 。 プロ シー ジャ PrintArray の 2 番目 の パラ メー タ i は 
単 精度 実数 型 で す . 一 方 , 呼び 出し 時 の 引数 xG).next は , TYPE 宣 言 で , next AS 
INTEGER と 整数 型 に な っ て いま す . す る と , 当然 コン パイ ル 時 に エラ ー と な り ま 
す . も ちろ ん 。 プロシージャ を 使用 せ ず , 直接 


PRINT Y(x(i).next) 


と すれ ば , エラ ー と は な ら な い の で 。 こ の 種 の 誤り は コン パイ ル 時 まで 気づか ず , 
や っ か いで す . ゆめ る や か な 規則 と , 厳密 な 規則 が 同居 し て いる た め の 問 題 と 言え 
し 。k う (生生 1 弄 。 

言い 換 を る と , これ は , 配列 の 添字 を 整数 型 に 限定 する と 初心 者 に は わか り に 
くい で あろ うと し て それ を ゆる め た BASIC の 文法 を その まま 引き ずっ て いる た 
め と 環 え まし ょ う 。 

@ リ スト 1.1.3 引数 の 型 チ ェ ッ ク に 引っ か か りや すい 倒 


メイ ンジ ュー ル | 
TYPEnode ) 
body AS STRING 和 100 、 
。 eXt AS TNTEGER 、。、 





rm x00) AS 0 こ 


CALL PrintArray( y(), x(1) .next) 
SUB プロ シー ジャ [ | 「 
SUB PrintArray( x().1) 

RPINT x(1) 
END SUB 


1.1.4 固定 長文 字 列 


レン 


。 ノ 


固定 長文 字 列 は 。 プロ シー ジャ の 引数 と し て 使用 で き な い ほか に も , いく つか 
の 注意 事項 が あり ます . 

固定 長文 字 列 変数 の 初期 値 は , 文字 コー ド ゼロ が 長 さ だ け 並 ん だ も の で す . A$ の 
よう な 可変 長文 字 列 の 初期 値 が メル で ある の と は 異な り ま す . 


し の 


|.1 Quick BASIC の 特徴 と 紅 意 点 


比較 する 場合 に は 。 長 さき が 一 致す る も の で な いと 意味 を な さ な い の で 。 注意 す 
る 必要 が あり ます . た と えば 


DIM SASSTRING※* 5 
ら = ABCD" 
XX や = "ABOCD" 


に お いて 。 S と X$ と は 等 し く あ り ま せん 。. S = "ABCDE” と X$5 = "ABCDE" の 
よう に , 長 さ まで 一 致す れ ば ,。 等 し く な り ま す . 固定 長文 字 列 変数 に 固定 長文 字 
列 の 長 さ より 短い 文字 列 を 代入 する と, あと は 空白 コー ド (=32) で 埋め られ ます . 

固定 長文 字 列 は , ヌメ ル を と れ な い 点 に も 注意 が 必要 で す . Pascal や C の 文字 型 の 
つ ゃ り で , 


DIM ch AS STRING ※* 1] 


と 宣言 され た 変数 ch は つね に 長き 1 を 持ち ます . ヌル 文字 列 の 代入 は ch に 空白 を 
代入 し ます . ヌル で は あり ませ ん . 

また , DIM で 宣言 され た 固定 文字 列 変数 は , うし ろ に 記号 $ を つけ て も 可変 長文 
字 列 変数 に は な り ま せん , た と えば ぱ ば , 


DIMSASSTRING * 5 
で 宣言 され た S が ある と し ます . する と 代入 , 
S$="A" 


に よっ て , S$ は 長 さ 1 で な く 5 を と り ま す . すなわち , S と S$ は 同一 の も の で す . 
この こと は け は, 


6=J 
=4.5 


に よっ て X% と X が 区 別 され , 別 々 の 変数 と みな され る BASIC の 仕様 を 引き 継い で 
ぃ ゅ る QB の 文法 と し て は , 不一致 を 感じ きせ ます . 


シン 


ュ ョ クニ 


1.1.5 用 語 


MM BASIC の 拡張 さん れん た も の で あり , Pascal や C の 特徴 も 取り 込ん で いる の 
用語 は よく 似 て いま す . し か し , QB 独自 の 使い 方 も ある の で , 類推 で 使用 す 
る 正しく 二 め ら な い c と も あり ます . 





用 語 パ ラメ ー タ と 引数 は , 常識 的 に は 同じ 内 容 の も の で す が , QB で は 決 の よう 

に 使い 分 け て いま す . | 

パラ メー タ ‥…: ド プロ シー ジャ 宣言 時 に 与え を られ る プロ シー ジャ に 渡し た り 結 果 
を 受け 取る 変数 . 普通 の 表現 で は 仮 パ ラメ ー タ , 仮 引数 ある い 
は 形式 パラ メー タ な ど と 呼ば れる も の . 

引数 …………… プロ シー ジャ 呼び 出し 時 に 値 を 渡し た り 結 果 を 受け 取る 変数 . 
普通 の 表現 で は , 実 パ ラメ ー タ 。 実 引数 と 呼ば れる も の 。. 





QB で の プロ シー ジャ は ,SUB で 宣言 され る サブ プログ ラム と FUNCTION で 宣 
言 さ れる 関数 の 両方 を 指し ます . プロ シー ジャ は 狭い 意味 で は モジ ュー ル と も 呼 


ば れ ま す が , QB で は モジ ュー ル を 別 の 意味 に 用 いる の で , 混同 し な いよ うに し ま 
す 。 プロ シー ジャ 1 個 で も モジ ュー ル に な り 得 ます . 

Pascal で 言う プロ シー ジャ は 手続 き と も 呼ば れ , QB の SUB プ ロ シ ー ジ ャ に 相当 
し ます . 一 方 関数 は どちら も 関数 で す . 

C は , すべ て が 関数 で す が ,。 void を 付 し て 宣言 され た も の が QB の SUB プ ロ シ ー 
ジャ に 相当 し ます .C の 関数 = ki シー ジャ (ただし,main 関 数 を 除く ) で す . 






QB で 言う モジ ュー ル と は , プロシージャ を 1 個 以 上 含む ソー ス フ ァ イル を 意味 
し ます . 小さ な プロ グラ ム は 。 通常 1 個 の ファ イル で 構成 され る の で 。 1 個 の モ 
ジュ ー ル か ら な り ま す . 汎用 の プロ シー ジャ を 集め た ファ イル を 。 フ ァイル コマ 
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1.1 Quick BASIC の 特徴 と 留意 点 


ンド の “サブ ファ イル "” と し て 常駐 きせ た 場合 に は ,。 その プロ グラ ム は 複数 の モ 

ジュ ー ル か ら な り ま す . 「 | 
DIM,。 CONST, DIM SHARED, COMMON SHARED な ど は モジ ュー ル 内 

で の み 有 効 で す . モジ ュー ル 間 で 変数 を 共有 する た め に は , プロ シー ジャ の 引数 


と し て 渡す か , COMMON を 用 いま す . 









サブ ルー チン と いう 用 語 は , QB で は , GOSUB で 呼ば れる プロ グラ ム の こと を 
指し ます .SUB ま た は FUNCTION で 宣言 され る プロ シー ジャ と は 区 別 さ れ ま す . 


1.1.6 ブロ シー ジャ 内 で 使用 で き な い 
ステ ー ト メン ト 

DATA ス テー トメ ント は プロ シー ジャ 内 で は 使用 で きま せん . モジ ュー ルレ ベ 
ルコ ー ド 部 に の み 置 く こ と が で きま す . 同一 つの モジ ュー ル 内 で は ,。 READ を 用 い 
て , どの プロ シー ジャ 内 か ら で も DATA を 読み 込む こと が 可能 で す ,。 モジ ュー ル 
間 で は 読む 込む こと は で きま せん . 

OPTION BASE ス テー トメ ント は 使用 で きま せん . モ ジュ ー ル レベ ルコ ー ド 内 
で 1 回 の み 使 用 で きま す . 


1.1.7 静 的 配列 こ 動 的 配列 


QB で の 配列 は , コン パイ ル 時 に 必要 な 領域 が 確保 され る も の と , 実行 時 に DIM 
ある い は 暗黙 の 宣言 で 現れ た と き に 領域 が 確保 され る も の の 2 種類 が あり ます . 
前 者 を 静 的 ($STATIC) 配 列 , 後者 を 動 的 $DYNAMIO) 配 列 と 呼び ます . 

ステ ー ト メン ト ERASE は , N。。-BASIC な どの 場合 と 働き 方 が 異な り ま す . ERASE 
は 静 的 配列 に 対し て は 配列 の 初期 化 を , 動 的 配列 に 対し て は 領域 の 解放 を 実行 し 
ます . | 

配列 の 静 的 お よび 動 的 な 宣言 は 。 メ タコ マン ド '$STATIC と $DYNAMIC で な 
され ます . リス ト |.|.4 に 例 を 示し ます . 


ンク 


@ リ スト 1.1.4 静 的 配列 と 動 的 配列 の 宣言 の 例 


'$STATIC 










し 旧 。 ( 朋 。 ご 1 還 還 
DTN X(100).A$(100) 。。 'X と AS は 静 的 配列 
YRTW FRR0).FREC に 1 


'$DYNAM [ ーー 
1 ae B$(100) 才 B$ は 動 的 配列 
PRINT FRE(0) ,FRE(-1) ー 。 

SA0EIYA00 

PRINT FRE(0), FRE(- -1) 


出力 の 全 
41806 129438 

120480  ・-- XLAMM 1 的 # て 

41394 120610 <- Y と 1 BS の 征 言 で メ : 

41806 129438 <--- ERASE に よっ て Ye 












に ーー 





一 方 , 配 列 の お か れる 領域 は 文字 列 型 の 場合 と 数 値 型 の 場合 と で は 異な り ま す . 
静 的 な 文字 列 配列 は 文字 列記 憶 領域 に と られ ます . 数 値 型 配列 は 静 的 ・ 動 的 を 問 
わ ず 非 文字 列記 憶 領 域 に と られ ます . 文字 列記 憶 領域 は , 単純 型 変 数 な ど を 記憶 
する DGROUPE と 名 づけ られ た 領域 と 同一 の セグ メン ト に あり ます . 

注意 すべ き は , COMMON で 宣言 され た 配列 は DGROUPE 中 に 領域 が と られ る 
こと で す 。. DGROUPE は 最大 で も 1 セグ メン ト (65536 バ イト ) の 大 き さ し か な く , 
QB の シス テム 変数 も そこ を 利用 する た め ユ ー ザ が 使用 で きる の は , 関数 FRE( 0 ) 
で 調べ る と 。 44K バ イト 程度 し か な いこ と で す . し た が っ て ,。 本 書 2.3 の 単語 帳 プ 
ログ ラム で は ,。 600 以 上 と れる は ず の 配列 X( ) が 350 程 し か と れ ま せん . 
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会 来 の BASIC に 比べ て , QB で は 制 件 構文 に 大 幅 な 機能 強化 が な され て いま す . 
WHILE/WEND の ほか に DO/LOOP 構 文 が 付加 され , ルー プ 中 か ら の 腕 出 も EXIT 
DO, EXIT FOR, EXIT WHILE な ど が 可能 に な り ま し た . 

分 岐 は , END IF が 許さ れ た た め , 複数 行 に また が っ て 記述 で きる よう に な り ま 
し た , また , SELECT 文 が 新設 され て ,。 選択 文 が 可能 と な り ま し た . 





1.5.1 ルー プ 


ンク 


プ 


ルー プ 構 造 と は , 従来 の BASIC で は FOR/ NEXT や WHILE/ WEND で 表 さ れ た , 
処理 の 繰り 返し 構文 の こと で す 。. 変数 の 値 の み を 順に 変化 させ , 処理 の 手順 は 変 
わら な いよ うな 場合 に 利用 きれ ます . 

標準 的 な ルー プ 構 文 に は 図 |.2.1 に 示さ れる よう な も の が あり ます . 処理 の 前 に 
処理 を 行う か 否 か を 判断 する 前 判定 ルー プ と , あと で 判断 する 後 判 定 ル ー プ が あ 
@ 図 1.2.1 前 判定 ルー プ と 後 判 定 ル ー プ 


くき e> ルー プ 脱 出 


処 埋 
処 理 
ルー プ 脱 出 
前 判定 ルー プ 後 判 定 ル ー プ 


り ま す . 現実 に は , 処理 の 途中 か ら 抜け 出 た り , 脱出 条件 が 複数 あっ た りな どの , 
いろ いろ な ルー プ が 存在 し ます . 

は じ め に 。 図 1.2.1 の 型 の ルー プ に つい て 考え て み ま す . 

BASIC で 用 いら れ て きた FOR/NEXT や WHILE/WEND ル ー プ は 前 判定 ルー プ 
で す . し た が っ て , 従来 の BASIC で 後 判 定 ル ー プ の プロ グラ ム を 書 こ うと する と 。, 
IF/GOTO 文 を 使う か 。 WHILE/WEND ル ー プ が 便 用 で きる よう に アル ゴリ ズム 
を 前 判定 型 に 変更 する と いっ た こと を 行う 必要 が あり まし た . し か し , QB で は DO/ 
LOOP 構 文 の お か げ で 後 判定 の プロ グラ ム が 書き や すく な り ま し た . 具体 的 な プロ 
グラ ム 例 で 説明 し まし ょ う . 

文字 配列 4$ に READ/DATA ス テー トメ ント で, 次 々 と 文字 デー タ を 読み 込む プ 
ログ ラム を 考え て み ま す . この 繰り 返し 処理 の 終了 は , 文字 デー タ の 最後 に 文字 
列 “end”" を 並べ て お き , この 文字 列 を 読み 込ん だ と ころ で ルー プ を 抜け る よう に 
し ます . 図 1.2.2 に フロ ー チ ャ ー ト を 示し ます . リ スト |.2.1 に は IF/GOTO 文 を 使っ 
@ 図 1.2.2 後 判定 型 の ルー プ 例 
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た プログ ラム を ,。 リ スト 1.2.2 に は WHILE/WEND 文 を 使っ た プロ グラ ム を 示し 
ます . 

フロ ー チ ャ ー ト か ら も 明らか な よう に , READ 文 で デー タ を 読み 取っ て か ら 終 
わり の 判断 を 行っ て いま すか ら 。 この ルー プ は 後 判定 型 で す . この よう な 後 判定 
型 の ルー プ を 前 判定 型 の WHILE/WEND 構 文 を 使っ て コー ディ ング する た め に は , 
リス ト |1.2.2 で 示さ れる よう に ルー プ に 入る 前 に , そ の 処理 を 1 回 だ け 余 分 に 行う 
よう に アル ゴリ ズム を 変更 し な けれ ば な り ま せん . これ は , 初心 者 に と っ て わか 
り づ らい こと で す . プ ログ ラミ ング の 学習 で つま ずく 関所 で も あり ます (FORTRAN 
の み を 学ん で きた だ 人 に と っ て は ,。 か な り の ベテラン で も 難し く 感 ずる よう で す )。 

それ に 対し て , DO/LOOP 構 文 を 用 いる と 。 リ スト 1I.2.3 か ら も わか る よう に , 
図 1.2.2 の フロ ー チ ャ ー ト その まま に コー ディ ング 可能 で す . これ より 。, 従来 の BASIC 
で は 後 判定 ル シ ー プ が コー ディ ング し づら いと いう 点 が ,QB で は 改善 さん れ て いる こ 
と が わか り ま す . 

この DO/LOOP 構 文 は 前 判定 , 後 判定 の どちら の 型 の ループ で も 書け ます . その 
う え を, 判定 条件 に WHILE(- の 間 繰 り 返 す ) で も UNTIL(ー ま で 繰り 返す ) で も 使 
える と いう 特徴 が な あります. し た が っ て , DO/LOOP 構 文 で は , 図 |.2.3 に 示す よ 
うに 4 種類 の ルー プ が 可能 に な り ま す . 

タイ プ 1 は , 人 和佐 来 か ら の 拡張 BASIC に お ける WHILE/WEND ル ー プ や ,。 Pascal 

@ リ スト 1. 2 





1 ilst 1.2。 「 。 
3 「 
4・ 「 
S: ーー で rf 0 1 
6 : WHILE TT 1 <> "endr 
すく _ 4 willh1 
8: _READ 45 け ) ー 
9: WEND 0 








@ 図 1.2.3 DO/LOOP の 4 つの タイ プ 


DO WHILE 条件 DO UNTIL 条件 
処 埋 処 理 
LOOP LOOP 
奈 件 が 真 で あれ ば ルー プ を 朱 件 が 真 と な つっ た ら ル ー プ 
実行 する (前 判定 型 ) へ 入ら な い ( 前 判定 型 ) 
タイ プ 1 イプ 音 
DO DO 
処 埋 処 埋 
LOOP WHILE 条件 LOOP UNTIL 条件 


款 件 が 真 で ある 間 ル ー プ を 夫 件 が 真 と な つた ら ル ー プ 
実行 する ( 後 判定 型 ) を 脱出 する ( 後 判定 型 ) 
タイ ブフ 還 タイ ブフ IM 
の while ルー ププ と 。 タイ プ IV は 。 Pascal の repeat until ル ー プ と 同様 な 働き を し ま 
す . タイ プ II と II が ,。 QB で 新しく 増え た タイ プ で , これ ら の タイ プ を 使わ な いで 
プロ ダフ ラミ シグ し よう と 用 え ほ で きま な が な いと と は あり ませ せん 。 し お あし 。 情 っ て みる 
と な か な か 便利 な タイ プ で す . 
た と えば , タイ プ II の DO UNTIL/LOOP に つい て ひと つ 例 を あげ て み ま す . 
シー ケン シャ ルフ ァイル か ら デ ー タ を な く な る まで , つ まり ファ イル の EOF マ ー 
ク を 見 つけ る まで 配列 に 読み 込む よう な 処理 を 行う 場合 ,. よ く WHILE/WEND ル ー 
プ が 使わ れ ま す . 
すなわち , 


100 DIM X$(200) 

110 OPEN FILEX$ FOR INPUT AS 衣 
120 1=0 

130 WHILE NOT EOF(1) 

140 T=T 十 1 

150 LTNE INPUT 衣 , X$(1) 

160 WEND 


1.g 制御 構造 
に ao だ よう 低 人 な 人 2 ます . 
ここ で 。 WHILE NOT EOF( 1 ) は 。 フ ァイル 番号 1 の ファ イル の "EOF (ファ 
イル 終了 マー ク ) を 見 つけ な い 間 は 繰り 返す ”" と いう 意味 で す . 
し か し , この 意味 を 変え た な いよ うに 言い 換え る と , “EOF を 見 つけ る まで 繰り 返 
す ”" と な り , こち ら の ほう が より 目 然 な 表現 と な り ま す . これ は タイ プ II の DO/ 
LOOP 構 造 で 記述 で きま すか ら ,。 QB で は 次 の よう に 書け ます . 


DIM X$(200) 
OPEN FILEX$ FOR INPUT A8 衣 
[=0 
DO UNTTL, EROF(1) 

1=T 十 1 

LTNE INPUT #, X$(T) 
LOOP 


小さ な こと か も し れ ま せん が ,。 ルー プ の 判定 条件 に 対応 し て , 表現 を 変え る こ 
と な く 。 より 自然 に コー ディ ング で きる こと は , プロ グラ ム を 書く 場合 も 読む 場 
合 も 重要 な こと で は な いで し ょ うか 、 

DO/LOOP 構 造 は 無限 ルー プ を 作る こと も 簡単 に で きま す . 脱出 条件 を つけ ず に 。, 
処理 の 前 後 を DO と LOOP で 挟 め ば 無限 ルー プ と な り ま す ( 図 |.2.4). 

@ 図 1.2.4 無限 ルー プ 


DO 


LOOP 


無限 ルー プ や , ルー プ 回 数 が あら か じ め 定 め ら れ て いる FOR/NEXT ル ー プ な ど 
か ら , ル ー プ を 脱出 する 必要 が ある 場合 が あり ます . た と え ゆ , 文字 列 型 配列 b$ (100) 
の 要素 と 。 ある 文字 列 型 変 数 c$ の 内 容 を 比較 し て , 一 致し た ら そ の 文字 列 型 配列 
の 添字 を と り だ す 処 理 を 考え て み ま す . FOR/NEXT ル ー プ で 配列 の 最初 か ら 最後 
まで 順に 配列 要素 と c$ の 内 容 を 比較 し て いく と する と , 文字 列 の 内 容 が 一 致し た 
あと , 一 般 的 に は , 残り の 配列 要素 を 調べ る 必要 は な い の で , その 時 点 で ルー プ 


Pe 


@ リ スト 1.Z.4 


80 0 JE 1424 
110 ・ Tn _ 
し 

・ 130 DI B$(100) 

140 60 > 5 

> 1 訓 導 1 。0 0 100 

: 160 IF BS$(I)=C$ THEN GOTO *LOOPOUT 
: 170 NEXT 1 | 

・ 180 *LOOPOU' 、 

: 190 SUBSCRIPT = 1 





ら eo コ の mA 








ャ ー 


二 U ト し と 


4 も 1.2.5 


DIM b$(100) 

c$ = "ABC" 

b$(i) = c$ THEN EXIT FOR 
0 


の ココ の の の ho ピ 
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か ら 脱 出し た く な り ま す . この よう な 場合 , 従来 の BASIC で は , IF/GOTO 文 を 使 
わざ る を 得 ま せん で し た (リス ト 1.2.4). 

QB で は , ルー プ の 途中 か ら 脱 出す る た め に , EXIT 文 が 用 意 き され て いま す .EXIT 
文 を 使う と 。GOTO 文 を 使う こと な く ル ー プ の 途中 か ら 抜け る こと が で きま す ( リ 
スト 1.2.5). 

プロ グラ ム 例 を ひと つ 。 リス ト 1.2.6 に あげ て お きま す . 

この プロ グラ ム は , 20 文 字 ま で の 文字 列 を キー ボー ド よ り 受 けつ け , 文字 列 変 
数 s$ に 格納 する も の で す .。 た だ し , 20 文 字 以 内 で も , [キー が 押さ れる と それ ま 
で 押さ れ た 文字 列 が s$ に 格納 され ,[ESc]( エ スケ ー プ ) キー が 押さ れる と “ESC キ ー 
が 押さ れ ま し た "” と いう 文字 列 が s$ に 格納 され る と いう も の で す . 

外側 の DO/LOOP UNTIL に よ ょ よって, キー ボー ド よ り 入 力 さ れ た 文字 数 が 20 文 字 
を 越え る まで 処理 が 繰り 返さ れ ま す . 内 側 の DO/LOOP _ UNTIL は, キー ボー ド よ 
り 何 か キー を 入力 させ る 場合 の 典型 的 な 方 法 で す . 

何 か キ ー が 押さ れる と この 内 側 の ルー プ か ら 抜 け , 次 の 2 つの IF 文 に よっ て 押 
され た キー の チェ ッ ク を 行い ます .。 


@ リ スト 1.Z.65 
1) fat 1.2.6 
3. 
4: CLS ] 
5* sa も ns 
6: n = 0 「 
7 LOCAIE 1、 20 
8: PRINT な に か 身 数 字 キ ー を お し て くだ さい . 
9 : 
10: DO 
11 : hn = HH + 1 
メ : 「 
49: DO 
14・ a$ = INKEY$ 
35: LOOP UNTIHL a$ <> "" 
16: 
ま 了 ナ : TE a$ = CHR$(13) THEN EXIT DO 
18・: 
19: TF a$ = CHR$(&H1B) THEN 
20: 8$ も = ドド 8 EE キー が お され まし た .、 “ 
24 : EXIT DO ' 
シー END F 
の 3 「 
24・: 8S$ = Ss$ + 8a$ 
25 : 
26: LOCATE 2, 20 
2 PRINT nn = : h 
28・ LOCAIE 3。 20 
29: PRINT “a$= : a$ 
30 : LOCATE 4, 20 
きす PRINT ”"s$=": s$ 
32 
33: LOOP UNTIL n >= 20 
34 : 
35・ LOCATE 10, 20 


36 ・ 


PRINT "s$=": a$ 


TF' a$ = CHR$(13) THEN EXTT DO 
IF a$ = OHR$(&H1B) THEN 


Sb = SC キー が 押さ れ ま し た . 
EXTT DO 


BiND 1F 
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最初 の IF 文 は , 山 キ ー が 押さ きれ た か どう か の 判定 を し て いま す . も し そう な ら , 
DO ルー プ を EXIT 文 で 抜け ます . 
2 番目 の IF 文 は [ESC キー が 押さ れ た か どう か の 判定 を し て いま す . その 場合 は 
文字 列 変数 s$ に “ESC キ ー が 押さ れ ま し た ." と いう メッ セー ジ を 代入 し て DO ルー 
プ を 抜け ます . 


ノ / 


どちら の キー で も な い 場 合 は , 次 の 代入 文 で 文字 列 を 連結 し て いき ます . 
Sb = 8 十 ab 


外側 の ルー プ を 抜け る に は , 2 つの キー( 回 と [mc」) が 押さ れ て EXIT 文 が 働く 場 
合 と 。 入 力 文字 が 20 文 字 を 越え た 場合 に 。 次 の LOOP UNTIL 文 に よる 場合 と が あ 
り ま す . 


LOOP _ UNTILn >= 2Z0 


20 文 字 入力 する 間 に , 2 つの キー が 押さ れ な か っ た 場合 は , この 判定 が 有効 に 
な り ま す . 

プロ グラ ム の 実行 途中 の a$, s$ お よび n の 値 と , 実行 結果 と し て の s$ の 値 は ディ 
スプ レイ に 表示 され ます の で ,。 キー ボー ド か らい ろ い ろ な 値 を 入力 し て 試し て < 
だ さい 。 

この 例 か ら も わか る よう に ,EXIT 文 を 使う と ルー プ の 途中 か ら 条 件 に よっ て 効 
果 的 に 脱出 する こと が で きま す . 

し か し , EXIT 文 に も 機能 的 に や や 弱い 点 が あり ます . それ は ルー プ を 脱出 する 
と き に , EXIT 文 の 存在 する ルー プ だ け か らし か 脱出 で き な い 点 で す . ルー プ の ネ 
スト が 2 重 , 3 重 と 深い 場合 , その 一 番 深い ルー プ か ら , ある ひと つの 条件 で 一 
番外 側 へ 腕 出 する に は , 図 |.2.5 に 示し た よう に 同じ EXIT 文 を 3 回 書か な けれ ば 
な り ま せん 。 あるいは , ひと つの 命令 で 腕 出 と いう こと で あれ ば , GOTO 文 を 使 
わざ る を えま せん . ひと つの EXIT 文 で すべ て の ルー プ を 脱出 で きれ ば , た い へ ん 
便利 だ し , プロ グラ ム の 可読性 も 向上 する で し ょ う . 

以上 に 述べ た よう に , ルー プ 構 造 に 対し て の DO/LOOP と , それ か ら の 脱出 の EXIT 
文 が QB 上 で 綴 化 され た 点 で す . 従来 の MBASIC と の 互換 性 か ら WHILE/WEND 
も 残さ れ て いま す が , DO WHILE/LOOP に 置き 換え られ ます の で , プロ グラ ミ 
ング スタ イル か ら は DO/LOOP に 統一 し た ほう が よい と 思い ます . ち な み に 本 書 で 
は 。 そ うし て いま す 。 

も う ひ と つの FOR/NEXT エ ルー プ は ,。 ルー プ 変 数 が 重要 な 役割 を 果たす ルー プ , 
た と えば 配列 の 内 容 を 順に 処理 する よう な 場合 に は 有用 で す . し た が っ て , この 
2 種類 の ルー プ が 使用 で きれ ば 充分 で し ょ う . 


2O 


W 


タグ 
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@ 図 1 .2.5 多重 DO ルー プ か ら EXIT 文 に よる 脱出 


DO 


IF 条件 THEN EXIT DO 


LOOP 
IF 条件 THEN EXIT DO 


LOOP 


IF 条件 THEN EXIT DO 
LOOF 





1.e.e 分 収 


分 岐 構造 と は , BASIC で は IF/THEN/ELSE を 使っ て 表 さ れる 処理 の 校 別れ 構 
文 の こと で す . 条件 に よっ て ある 処理 を 行わ せ た り , 処理 の 流れ を 2 方 向 に 分 岐 
させ た だ たい 場合 に 利用 され ます . 

人 従来 り の BASIC では, この 分 岐 構造 の 記述 能力 が Pascal や C に 比べ て 使い に くい 
も の で し た 。 な ぜ な ら ば ,。 処理 の 流れ を 2 つ に 分 岐 し た あと の 処理 の ブロ ッ ク 化 
が 困難 で あっ た か ら で す . すなわち , IF/THEN/ELSE 文 を 1 行 に 書か ね ば な ら 
な か っ た た め に , 分 岐 後 の 処理 が 複数 に わた る と き は GOTO 文 や GOSUB 文 に 頼る 
ほか は あり ませ ん で し た . リ スト 1I.2.7 の プロ グラ ム は , 単純 な 分 岐 構造 ( 図 |.2.6) 
を 従来 の BASIC で コー ディ ング し た も の で す が , GOTO 文 を 2 か 所 も 使用 せ ざ る 
を えま せん で し た 。 

ある い は , 同じ 内 容 の も の を IF/THEN/ELSE を 1 行 で 用 いて , リ スト 1.2.8 の 
よう に 2 個 の GOSUB を 用 いて 書く こと に な り ま す . この 場合 に は , サブ ルー チン 
* 上 3 と *※ 上 4 を 読ま な いと 処理 の 内 容 が わか ら ず 読み や すく あり ませ ん . 

し か し , QB で は , END IF 文 が 使え , 複数 行 に わた っ て 記述 で きる よう に な っ 
た た め , この 問題 は 解決 し まし た . 図 |.2.6 を QB で コー ディ ング する と リス ト |.2.9 
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の よう な り 。 リス ト 1.2.7 や ヤリ スト |1.2.8 に 多 プロ グ タ ム 志 見 や すく な かなり ま し 
。 

この QB の ブロ ッ ク IF 文 は , Pascal や C の IF 文 と 同様 に IF の 入れ 子 構造 が 可能 で 
す . 図 1.2.7 に 示す フロ ー チ ャ ー ト を ブロ ッ ク IF 文 の 入れ 子 構造 を 使っ て コー ディ 
ング する と , リス ト 1.2.10 の よう に な り ま す . し か し , 入れ 子 構造 が あま り 深 い 
と プロ グラ ム の 可読性 が 悪く な っ て きま す . 
@ リ スト 1.Z.9 


llat 1.2.9 


| 男 0 > b THEN 1 ーー 
_  。 40 ) )) ク { ク ) ク 00t5t5%〔W4)〔 {tt{).〈《4《〈6〈 ヘ 」{〕t1」】48 。。 
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@ 図 1.2.7 多分 岐 構造 





QB で は ,。 ブ ロッ ク IF 文 の オプ ショ ン と し て ELSEIEF 文 が あり ます の で 。 こ の よ 
うな 場合 に も 対処 で きま す . 同 じ フ ロー チャ ー ト の も の を ELSEIF 文 を 使用 し て コー 
ディ ング する と 。 リ スト 1|.2.11| の よう に な り 。 入れ 子 構造 な し で も プロ グラ ミン 
グ が で きま す 。 

な お , ブロ ッ ク IF 文 の 登場 で 1 行 の IF/THEN/ELSE 文 は ほとん ど 使 わな く な 
る と 思い ます が 。 分 岐 後 の 処理 が 1 命令 で か つ 短 い 場 合 は ,、。 あえ て ブロ ッ ク IEF 文 
に する より 見 や すい と 思わ れ ま す の で ,。 第 2 部 で は その よう な 場合 に か ぎり ,。 1 


行 の IF 文 を 使っ て いま す . 
@ リ スト 1.Z.10 
人 8 1 at 1、2、16 
ト 
1 
4・ a = 10 
らら: 
6G: b ュ ょ 70: cC > 100: d > 50: e = 40 
7: 
8: 「 
9: THFa > b THEN 
10: f = b 
11: ISE 
1 2 JF a > c THEN 
まま 3 ま * C 
14・ ELSE ( 
15: TFa > d TEN 
16・ # = d 
まえ: ELSE 
18・ IF a > e TIEN 
19・ 2 )、 ま \ 本 
20・ RELSE 
4 f =g 
22: END IF 
2 バ END IF 
24・ END IF 
25: END IF 
26・ 
の 1: PRINE も 


1.e 制御 構造 
@ リ スト 1.Z.11 


ーッ 「 HU 、 ーー 


も 。 70・ C ・ 60:d・50: 6 0 1 


oo ココ の mcCStK ら m 


TF a > b THEN 
+ ュ | 


20: PRINTT 


き 1.g.3 選 択 


選択 構文 と は , 枝 別 れ す る 条件 が 多数 存在 し , それ に よっ て 処理 の 流れ を 多分 
岐 き せよ うと する 構文 で す . 従来 の BASIC で は ON GOTO あ る い は ON GOSUB 
文 を 用 いて 表現 され て いま し た . この 文 を 多用 する と , 簡単 な 多分 岐 構造 の プロ 
グラ ム で も , GOTO 文 が 錯 縮 し て 可読性 の 悪い も の に な り が ち で し た . 

QB で は 新しく , SELECT CASE/END SELECT 構 文 が 加わ っ た た め 。 この 問 
題 が 改善 され て いま す .。 

ON GOSUB に よる 選択 構文 と SELECT に よる 選択 構文 の 比較 を し て み ま す . 
リス ト 1.2.12 は 前 者 。 リ スト 1.2.13 は 後者 で す . 

この プロ グラ ム は , キー ボー ド か ら 入 力 さ れ た 1 文字 WHICH$ が “1” “4” な 
ら ば, それ ぞ れ ファ イル 処理 , 測定 解析, レポ ー ト 作成 を する サブ プロ グラ ム 
を 呼び 出し 実行 し ます , “0" で あれ ば ,。 何 も し な いで 終了 し ます . 

ON GOSUB で は , ON の 次 の 式 の 値 は 数 値 1, 2, 3… を と ら な く て は な ら な いた 
め 。 変数 WHICH$ の 値 を 数 値 に 変換 し て SEL に 代入 し て いま す . その 分 。 可 読 
性 が 損なわ れ て いま ます. また, サブ プロ グラ ム ※*FILE。* MEAS な ど が タイ プ ミ 
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@ リ スト 1.2Z.12 


100 MMMt 1】.4.12 
110 0 ' 

1 

1 は 30 *AGATN 

140 TNPUT WHICHS 

150 SEL = ASC(WHICH$) - 48 0 
160 ON SEL GOSUB *FILE, *MEAS, *ANAL , *REPORT 
170 TF WHICH$ <> "0" THEN GOTO *AGAIN 「 





ooo- コ の 中 cotom 


@ リ スト 1.2.13 











1 : すま at 1.2.13 

る : 

は 2 

4: 10) 

も : INPUT which$ 

6 : SELECT CASE which$ 

た CASE "1" 

8: | ca11 File( ) 

9: CASE 2" 

10: _ cal1 Meas( ) 
まま CASK 3② 
と _ Cal1 Anal( ) 
13: JASE 4 
14: 、 UPOrt(( 】 
15: END SELECI 「 
16: LOOP UNTIL which$ = "0" 
47、 | 、 
18: 


ス で RETURN 文 が 腕 落 し て いた り , コー ディ ング ミス で , RETURN 文 が スキ ッ 
プ さ れ て いて も 見 出す こと が 困難 で す . 

QB の SELECT 文 で は , CASE の あと に 任意 の 式 が 使え る の で which$ と , その と 
る べき 値 “1", “2 , な ど を 直接 使用 で き , 見 や すく な り ま す . ま た, この 例 で は 
プロ シー ジャ File。Meas な ど は “モジュール” に な っ て いる の で 。 上 に 述べ た よ 
うな ミス は 生じ ませ ん 。 

その 点 か ら も ,。 QB で は プロ グラ ム が 読み や すく , か つ 書 き や す く な り ま す . 

また , この よう な 選択 構文 を 表す も の に , Pascal で は case 文 が 。 C じ で は switch 文 
が あり ます . 3 つと も 書式 の スタ イル は よく 似 て いま す が , QB と ほか の 2 つの 言 
語 で は 次 の 点 が 大 きく 異な り ま す . | 

つま り , QB で は CASE 節 の うし ろ ( つ まり 選択 子 ) に 式 が 記述 で きる こと に 対し 
て , Pascal や C で は 選択 子 に 定数 し か 記述 する こと が で きま せん . この こと は , QB 
で 書か れ た 次 の よう な プロ グラ ム を Pascal や C に 書き 換え る 場合 に 問題 に な り ま す . 
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1.6 制御 構造 


CONST right = 1, left = 一 1, balanced = 0D 
SBLREOCT CASE TargetWeight 
CAS Dalanced 
処理 ブロ ッ ク 1 
CASB 一 DirNow 
処理 ブロ ッ ク 2 
CASE DirNow 
処理 ブロ ッ ク 3 
BND SETLECT 


ここ で 。DirNow は 値 と し て left ま た は right の 値 を と る 変数 で す . Pascal や C で 
は , QB の よう に 選択 子 に DirNow の よう な 変数 を と る こと が で き な い た め , 選択 
構造 が 使え ず , 結局 次 の よう に i 文 を 使わ ざる を 得 な いこ と に な り ま す . 


if TargetWeight = Dalanced then 
begin 
処理 ブロ ッ ク 1 
end 
6186 
if TargetWeight = 一 DirNow then 
begin 
処理 ブロ ッ ク 2 
end 
e1S@ 
if TargetWeight = DirNow then 
begin 
処理 ブロ ッ ク 3 
end: 


この よう に 。 選択 文 の 表現 に 関し て は QB に 柔軟 性 が み ら れ ます . 
これ ら の 例 で よく わか る よう に ,。 QB で は SELECT CASE 文 が 加わ っ た た め 。 
ON GOTO( あ る い は ON GOSUB) は 実際 上 必要 が な く な り ま し た . 


うっ 


| 、 データ 構 和 


QB で は , 従来 の 文字 列 , 整数 , 単 精度 実数 , 倍 精 度 実数 型 の ほか に , 長 整 数 が 
付加 され まし た . 変数 の 型 宣 言 に つい て は DEFINT な どの よう に まとめ て 指定 す 
る 以外 に ,。… AS INTEGER の よう に , 個々 の 変数 ご と に 宣言 する こと が 可能 と 
な まし 人 。 

また 。 記号 定数 宣言 が 可能 と な っ た の で ,。 誤っ て 定数 を 書き 換え る よう な 心配 
は な く な り ま し た. 

最も 大 き な 追 加 事 項 は ,TYPE に よっ て 型 家 言 が で きる よう に な っ た こと で す . 
Pascal や C と 比べ る と , 要素 に 配列 が 使え を な いな どの 制約 が あり ます が , TYPE の 
ネス ト が 可能 で ある な ど ,。 使い や すく な っ て いま す . プロ シー ジャ の 引数 と し て 
も 使用 可能 な の で 。 プロ グラ ミン グ の 幅 が 広がり ます . 


1.3.1 記号 定数 


、 プ 


ンス 


QB で は , 新しく 記号 定数 の 宣言 が で きる よう に な り ま し た . 記号 定数 に 置き 換 
える こと が で きる の は 。 数 値 と 文字 列 お よび 変数 を 含ま な い 式 で す . キー ワー ド 
CONST の あと に 。 変数 の 代入 文 の よう な 要領 で 次 の よう に 書き ます . 


CONST TnfSize = 20 
CONST _ False = 0, True = NOT Halse 
CONST LastData ="RBND" 


記号 定数 名 の 最後 に 型 宣 言 文字 (%, 和 &,!,# $) を つけ て , 明示 的 に 記号 定数 
の 型 を 宣言 する こと も 可能 で す . つけ な い 場 合 は , 記号 定数 を 代入 する 変数 に 合 
う よ う に , 最適 な 型 が 自動 的 に 決め られ ます . 上 の 例 で は , InfSize, False, True 
の 3 つの 記号 定数 は 整数 型 。 LastData は 文字 列 型 に な り ま す . 
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1.3 デー タ 構 造 


記号 定数 名 の つけ 方 は 変数 名 の つけ 方 に 準じ ます が , 有効 科 囲 は 次 の よう に な 
り ま す . 

同一 モジ ュー ル 内 の 記号 定数 の 有効 男 囲 は , その 宣言 され た 場所 が モジ ュー ル 
レベ ルコ ー ド か , SUB あ る い は FUNCTION プ ロ シ ー ジ ャ 内 か に よっ て 異な り ま 
す . 

モジ ュー ルレ ベル コー ド に お いて 。 宣言 され た 記号 定数 の 有効 範 較 は グロ ー バ 
ル で 。 そ の モジ ュー ルレ ベル コー ド 内 は も ちろ ん , モジ ュー ル 内 の すべ て の SUB 
ある い は FUNCTION プ ロ シ ー ジ ャ 内 で 有効 で す ,. し た が っ て , モジュール レベ ル 
コー ド で 宣言 され た 記号 定数 名 は 。 モジ ュー ル 内 の プロ シー ジャ で 同じ 記号 定数 
名 を 別 の 目的 で 使用 する こと は で きま せん . 

SUB あ る い は FUNCTION プ ロ シ ー ジ ャ 内 で 宣言 され た 記号 定数 は 。 ロー カル 
で 。 そ の SUB あ る い は FUNCTION プ ロ シ ー ジ ャ 内 だ け で 有効 と な り ま す . 

複数 の モジ ュー ル か ら な る 場合 , 記号 定数 の 情報 は 渡さ れ ま せん . すなわち , 
メイ ン モ ジュ ー ル の モジ ュー ルレ ベル コー ド で 宣言 され た 記号 定数 は 。 メイ ン モ 
ジュ ー ル 内 で は グロ ー バ ル で す が 。 サブ モ ジ ュー ル に その 情報 が 渡ら な いた め , 
サブ モジ ュー ル の モジ ュー ルレ ベル コー ド で も 宣言 し て お く 必 要 が あり ます . 

図 1.3.1 に 示し た プロ グラ ム は 。 ProgMain.BAS と いう メイ ン モ ジュ ー ル と , 
ProgSub.BAS と いう サブ モジ ュー ル の 2 つの モジ ュー ル か ら 成 り 立 っ て いま す . 

それ ぞ れ の モジ ュー ル は 。 モ ジュ ー ル レベ ルコ ー ド の ほか に いく つか の SUB あ 
る い は FUNCTION プ ロロ シー ジャ を 含ん で いま す . 

記号 定数 False と True は , メ イン と サブ の 両 モ ジュ ー ル の モジ ュー ルレ ベル コー 
ド で 同一 の 内 容 の 定数 と し て 宣言 され て いま すか ら 。 この プロ グラ ム 全 域 で 同一 
の 値 と し て 参照 され ます . 

記号 定数 Title$ は , メ イン モジ ュー ル の み で 宣言 され て いま す の で , メ イン モジ ュー 
ル 内 に お いて の み グ ロー バル と な り ま す . し た が っ て , Titles を サブ モジ ュー ル 内 
で 使用 し た 場合 , 記号 定数 で な < く 単なる 変数 と 見 な され ます . 値 が 代入 され て い 
な いと 。 Title$ の 内 容 は 空 の まま で す . また , 記号 定数 Page は , SUB プ ロ シ ー ジ ャ 
PageFeed 内 で , Number は FUNCTION プ ロ シ ー ジ ャ PutC 内 で それ ぞ れ 宣言 され 
て いま すか ら , その 各 プ ロ シ ー ジ ャ 内 で の み 有 効 と な り ま す . 

記号 定数 を 上 手 に 利用 する と ,。 プロ グラ ム は 読み や すく すっ きり し ます か ら 。, 
QB で は 積極 的 に 利用 する と よい で し ょ う . 


@ 図 1.3.1 2 つの モジ ュー ル か ら な る プロ グラ ム 


プロ グラ ん 


メイ ン モ ジュ ー ル ProgMain. BAS 






CONST False ニ (0. True= ニ NOT False 6 
ニン ーー ニル イジ ガロ シー ザヤ 














CONST Title$ ニ "Word Test" レベ ルコ ー ド 
SUB PageFeed( SUB プ ロ シ ー ジ ャ 
CONST Page 三 20 
END SUB 
FUNCTION PutC( FUNCTION プ ロ シ ー ジ ャ 
CONST Number 三 / 
FND FUNCTION 
サブ モジ ュー ル ProgSub. BAS 
CONST False ニ (0 . True 三 NOT False モモ ジュール ニス メイ ンプ ロ S 還 
! レル コー ドド ドド デー ミ 





SUB プ ロ シ ジー ジャ 
ある い は 
FUNCTION プロシージャ 
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1.3 デー タ 構 造 


1.3.g 型 守 


ング 


BASIC で 使用 で きる 変数 の 型 は , 大 別 す る と 数 値 変 数 と 文字 列 変数 に 分 けら れ 
ます . QB で は 数 値 変 数 に 新た に 長 整 数 型 が 加わ り , 文字 列 変数 に は 固定 長文 字 列 
型 が 追加 され まし た . 

型 の 宣言 方 法 は , 従来 の BASIC と 同様 に , 変数 名 の 最後 に 型 を 示す 5 種類 の 型 
宣言 子 (%, 錠 , ! # れ $) を つけ る の が 一 般 的 で す 。 型 宣言 子 を 省略 し た 場合 は , 
単 精度 実数 型 ( す な わ ち ! を つけ た も の と 同じ ) に な り ま す . また , $ を つけ て 文字 
列 型 を 官 言 し た 場合 は 可変 長文 字 列 に な り , 固定 長文 字 列 型 を 宣言 する に は あと 
で 述べ る DIM 文 を 使い ます . | 

また , プロ グラ ム の 先頭 で 使う こと に よっ て , 変数 名 の 先頭 の 文字 で 変数 の 型 
を 定義 する 事 が で きる 命令 に , DEFINT (整数 ), DEFLNG( 長 整数 )、 DEFSTR 
(文字 列 ), DEFSNG( 単 精度 実数 ), DEFDBL ( 倍 精度 実数 ) の 5 種類 が あり ます . 

た だ え ほ 。 


DEBEFTNT T-N 


と 宣言 すれ ば , 変数 名 の 先頭 が 1 か ら N ま で で 始ま る も の は すべ て 型 宣言 子 % を つ 
け な く て も 整数 型 に な り ま す . 
た だ し 。 型 宣言 子 を つけ た 変数 は この 定義 より 優先 し ます か ら 。 た と えば 


TTBMS= ABO" 


の ITEM$ は 変数 名 の 先頭 は IT で す が , 文字 列 型 変数 と な り ま す . 
さて , QB で は 新た に DIM 文 を 使っ て 変数 の 型 宣言 が で きる よう に な り ま し た . 
書き 方 は , 


DIM 変数 名 AS 型 名 


で す . 型 名 と し て 許さ れ て いる の は ,INTEGER (整数 )。 LONG( 長 整数 )。SINGLE 
( 単 精度 実数 )。 DOUBLE( 倍 精度 実数 )。 STRING (文字 列 )。 そ し て 次 の 節 で 説明 
する ユー ザ 定 義 型 で す . 


う ? 


例 を 使っ て 説明 し て み ま し ょ う . 


DIM Month AS INTEGER 

DIM PIT AS DOUBLE 

DIM OneLine AS STRTNG 

DIM OneWord AS STRING * 2Z0 


この 4 つの 宣言 文 で Month は 整数 型 。PI は 倍 精度 実数 型 。 OneLine は 文字 型 の 
それ ぞ れ 変数 と し て 定義 S8 れ て いま す . OneWord は , 固定 長文 字 列 と し て 宣言 す 
る 場合 の 例 で 。 この 場合 は 20 文 字 の 長き と し て 宣言 され て いま す . 文字 数 の 最大 
値 は 可変 長文 字 列 の 場合 の 最大 値 32,767 文 字 で す . 

固定 長文 字 列 変数 に , その 文字 数 より 多い 文字 数 を 代入 する と , 多い 文字 は 切 
り 捨 て られ ます .。 また 短い 文字 列 の 場合 は 左 か ら 詰め られ , あま っ た 文字 は 空白 
で 埋め られ ます . 

この 方 法 の 宣言 で 注意 する 点 は , 変数 名 に 型 宣言 子 を つけ る と エラ ー に な る こ 
と で す 。 型 宣言 子 を つけ た 変数 と DIM で 宣言 し た 変数 を 混在 し て 使う 場合 は 注意 
が 必要 で す . 

DIM 文 は に この よう に 変数 の 型 宣言 に も 用 いま す が , 従来 の BASIC で は 配列 変数 
の 宣言 に 用 いら れ て きま し た . QB で も , も ちろ ん 配列 の 宣言 に も 使い ます . QB 
で は 配列 の 添字 の 範囲 を 指定 で きる こと が 新しい 点 で す . 

だ と まえ 格 。 

DIM WeekDay(1 TO 7) AS 8STRTNG 
DIM Temp(--10 TO 40) AS SINGL.E 
と いっ た ぐあい に ,。 配列 変数 の 型 と 添字 の 範囲 が 指定 で きま す . 
も ちろ ん 。 次 の よう に 従来 どおり の 配列 宣言 も 可能 で す . 


DIM Subject$(20) 
DIM Number(100) 


この 場合 の 配列 の 大 き さ は 。Subject$ (0)- て Subject$ (20) と Number (0) Number 
(100) と な り ま す . な お 。 OPTION BASE 文 は QB で も 有効 で す の で 。 配列 の 添字 
の 最小 値 を 1 に する こと も で きま す . 
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1.3 デー タ 構 造 


また 。 DIM 文 で は SHARED オ プシ ョ ン を つけ る こと に よっ て 。 変数 を グロ ー バ 
ル 変 数 と し て 冨 言 する こと が で きま す . 
かえ 左 


DIM SHARED Title$ 
DIM SHARED Number(100) AS INTEGER 


の よう に 宣言 され た 場合 , 可変 長文 字 列 変数 Title$ と , 整数 型 配列 Number は , ひ 
と つの モジ ュー ル 内 で グロ ー バ ル と し て 扱わ れ ま す 。 し た が っ て これ ら の 変数 や 
配列 は , 宣言 され た モジ ュー ル 内 の すべ て の の SUB プロシージャ や FUNCTION プ 
ロ シ ー ジ ャ に お いて , 引数 の 受渡 し な し で , 値 の 参照 や 書き 換え が 可能 と な り ま 
す . な お 。 この 宣言 は モジ ュー ルレ ベル コー ド に お いて な され な けれ ば な り ま せ 
ん 。 

プロ グラ ム が 2 つ 以 上 の モジ ュー ル か ら な る 場合 、 そ の すべ て の モジ ュー ル に 
わた っ て グロ ー バ ル な 変数 を 宣言 する に は , COMMON SHARED を 使い ます . 
図 !.3.2 に 示す よう に , プ ログ ラム が 2 つの モジ ュー ル か ら な る 場合 を 例 に と る と, 
数 値 変 数 CountLoop と 文字 列 変数 JobName は , 両方 の モジ ュー ル の モジ ュー ルレ 
ベル コー ド で COMMON SHARED 宣 言 さ れ て いま すか ら , プロ グラ ム 全 域 で グ 
ロー バル な 変数 と し て 扱わ れ ま す .。 それに 対し 。 文字 列 変数 FileName は 。 メ イン 
モジ ュー ル TestMain.BAS の 中 の モジ ュー ルレ ベル コー ド で SHARED 宣 言 さ れ て 
いる の み で すか ら , メイ ン モ ジュ ー ル 内 だ け で グロ ー バ ル で す 。 


1.3.3 TYPE 文 


ず / 


QB で は , 数 値 変数 と 文字 列 型 変数 に 加え て , ユー ザ 定 義 型 変数 が 使え を る よう に 
な り ま し た 。 ユー ザ 定 義 型 変数 は TYPE 文 に よっ て , 数 値 。 固定 長文 字 列 。 ま た 
は ユー ザ 定 義 型 の 複合 し た デー タ か ら な る , 新た な 型 を 宣言 する こと に より 定義 
され る 型 を 持つ 変数 で 。 レコ ー ド 変数 と も 呼ば れ ま す . 

この レコ ー ド 変数 を 使う に は , ま ず TYPE 文 で 型 の 宣言 を する 必要 が あり ます . 

だ と えば, 


@ 凡 1.3.2 COMMON SHARED と DIM SHARED の 違い 


メロ グ タム 





メイ ン モ ジュ ー ル TestMain. BAS 
COMMON SHARED CountLoop AS INTEGER 


















人 レ 
COMMON SHARED JobName AS STRNG | ブー ンー 
be ルコ ー 
DIM SHARED FileName AS STRING 
文字 列 変 数 
File Name は 、 
メイ ン モ ジュ ー ル 
内 で グロ ー バ ル 
END SUB ね 3 の 一 本 
FUNCTION 
END FUNCTION 
数 値 変 数 CountLoop と 文字 列 変 数 JobName は 
プロ グラ ム 全 域 で グロ ー バ ル か つ 共 用 が 可能 
サブ プ ブ モ ジュ ー ル TestSub. BAS 
COMMON SHARED CountLoop AS INTEGER Mu 
COMMON SHARED JobName AS STRING od 
コー ド 
END SUB 
FUNCTION 
ジロ シー ジャ 





END FUNCTION 


FUNCTION 


END FUNCTION 
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1.3 デー タ 構 造 


TYPE node 
inf AS STRTING * 2Z0 
left AS INTEGER 
right AS TINTEGER 
welght AS INTRGER 
BND TYPE 


の よう に 宣言 する と , この ユー ザ 定 義 型 node は , 20 文 字 の 固定 長文 字 列 の 要素 inf, 
整数 型 の 要素 left, right, お よび weight の 4 つか ら 成 り 立 っ て いる こと が 定義 され 
た こと に な り ま す 。 要素 の 型 の 宣言 で 文字 列 型 は 固定 長文 字 列 型 に 限ら れる こと 
に 注意 し て くだ さい . 

そし て ,。 次 に DIM 文 を 使っ て 。 レコ ー ド 変数 の 宣言 を し ます . 


DIM Word AS node 
DTM XX(100) AS node 


これ に よっ て 。 変数 Word と 配列 XX は 。 そ れ ぞ れ node 型 の レコ ー ド 変数 と し て 宣 
言 さ れ た こと に な り ま す . レコ ー ド 変数 の 各 要 素 の 参照 ある い は 要素 へ の 値 の 
代入 は 次 の よう に し ます . 


a ヾ b = Word.inf 
b% = Word.left 
C$ = XX(]).inf 


Word.inf = "intellect" 
FORi=OUto 100 

X(1).We1ght = [ 
NEXT i 


QB に お ける ユー ザ 定 義 型 の さら に 便利 な 点 は , 型 の ネス ティ ング が で きる こと 
で す 。 
た だ お まほ 。 


TYPE DayTime 
month AS INTREGER 
day AS INTEGER 
BND TYPE 


TYPE Today 
totalday AS INTEGER 
schedule AS STRING * 30 
calendar AS DayTime 

BND TYPE 


の よう に , 最初 の TYPE 文 で DayTime 型 を 宣言 し て お け ば , 次 の TYPE 文 で , Today 
型 の 要素 calendar の 型 を DayTime 型 と し て 定義 で きる こと に な り ま す . 
次 に 示す よう に DIM 文 で Today 型 の レコ ー ド 変数 を 宣言 すれ ば , 


DIM OhristmasDay AS Today 


OhristmasDay.calendar.month = 12 


ChristmasDay.calendar.day = 25 


と いっ た よう な 使い 方 も で きま す . 

た だ し , TYPE 文 の 要素 に 配列 を 用 いる こと は で きま せん . この こと は 改良 し 
て も らい た い 点 の ひと つ で す . 

さて ,。BASIC で レコ ー ド 変数 が 使え を る よう に な る と 。 便利 に 感じ られ る こと に 
ラン ダム アク セス ファ イル が あり ます . 

ラン ダム アク セス ファ イル の 扱い は 。 シーケンシャル ファ イル の 場合 と 異な り , 
ファ イル の 1 レコ ー ド は 固定 長 で 定義 する 必要 が あり ます . また , その 1 レコ ー 
ド の 中 の 各 フ ィ ー ル ド も 固定 長 で 定義 し な けれ ば な り ま せん . 

た と えば 。 図 1.3.3 に 示す よう な レコ ー ド を 考え ます 。 こ の レコ ー ド を アク セス 
する ラン ダム ファ イル を 使用 する と き は , まず 1 レコ ー ド の 中 の 各 フ ィ ー ル ド を 
定義 し な けれ ば な り ま せん . 

その 場合 。, レコ ー ド 変数 が 使え な い 従 来 の BASIC で は FIELD 文 を 使い ます . FIELD 
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1 .3 デー タ 構 造 
@ 図 1 3.3 1 レコ ー ド の 構成 図 


1 レコ ー ド =96 文 字 





文 を 使う 場合 , 変数 ACC,。 TLEFT,。 TRIGHT な どの 数 値 項 目 は , すべ て 文字 列 
項目 と し て 定義 し な け れ ば な り ま せん . 

次 に ファ イル の オー プン と レコ ー ド 長 の 指定 を する 必要 が あり ます . 1 レコ ー 
ド の 長き は プロ グラ マ が 自分 で 計算 し な けれ ば な り ま せん . この 場合 は 96 に な り 
まず 。 

さら に 。 ラン ダム アク セス ファ イル へ の アク セス は 。 PUT と GET で 行う わけ で 
す が 。 そ の 際 入 出力 に 応じ て デー タ を 。 フィ ー ル ド の 左 詰め 。 ある い は 右 詰め に 
し て か ら 行 わな けれ ば な り ま せん . 数 値 デ ー タ と 文字 列 デ ー タ の 変換 操作 も 必要 
と な り ま す 。 ここ まで の 一 連 の 手順 を リス ト 1.3.1 に 示し ます 。 


@ リ スト |.).1 
。  _  . 

、 フリ ーー ルト の 元 邊 」 

・ FIELD れれ , 20 AS INFS, 2 AS ACC$, 70 AS SYNoPs, 2 AS TLEFTS. 2 AS TRIGHT$ 


) ファ イル の オー プン 
・ OPEN "RNDFILE、 DAT" FOR RANDOM AS # LEN = 96 


oo コ の mi た cot ら m 


10! 

11: INFVAL$S = intellect" 
12: ACCVAL = 1 

13: SYNOPVALS$ = " 知 性 


17: LSET INF$ = INFVALS 

18: LSET ACC$ = MKIS$(ACCVAL) 

19: LSET SYNOPS = SYNOPVALS 

20: LSET TLEFT$ = MKIS(TLEFTVAL) 
21: LSET TRIGHTS = MKIS(TRIGHTVAL) 


29: PUT 


作業 を TYPE 文 を 使っ て 行っ た 場合 の 例 を リス ト | .3.2 に 示し ます . 


ーー 放 。 
これ を 使え ば , 従来 初心 者 に は 使用 が 難し いと いわ れ て い だ , 


ファ イル が 比較 的 手軽 に 使え を る の で は な いで し ょ うか 。 


ング アデ アクセス 


本 キィ 











モジ ュー ル 
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QB で は 。, プ ログ ラム の モジ ュー ル 化 が 可能 に な っ た こと が 大 き な 特 徴 の ひとつ 
で す が 。 モジ ュー ル そ の も の の 定義 は た い へ ん わか り に くく < 書か れ て いま す . 

Ver.4.5 の Handbook 第 9 章 “ プ ログ ラム の モジ ュー ル 化 " で は 。 モジ ュー ル の 
定義 が 書か か れ て お ら ず , いき な り モ ジュ ー ル 化 の 利点 か ら 始ま っ て いま す . そ 
の 章 を ずっ と 読ん で いく と 。 や っ と 。 プロ シー ジャ を 1 個 以 上 含む ファ イル が モ 
ジュ ー ル で ある こと が わか り ま す 。, 

た だ し , 実行 の 始ま る “メイ ンプ ログ ラム ”"。 QB で は モジ ュー ルレ ベル コー ド 。, 
と 呼ん で いる 部 分 は 。 プロ シー ジャ で は あり ませ ん が 。 それ を 含む ファ イル を メ 
イン モジ ュー ル と 呼ん で いま す . 

プロ シー ジャ を 使用 する 場合 に 問題 に な る の は , 宣言 や イベ ント トラ ッ プ な ど 
が どこ まで お よぶ か と いう 問題 で す . 以下 に , それ ら に つい て まとめ て み ま す . 





1.4.1 モジ ュー ル 作 成 


タグ 


の ア 


QB で そ モジ ュー ル と 呼ぶ プロ グラ ム 単 位 は , デ ィ ス ク に ひと つの ファ イル と し て 
セー ブ あ る い は ロー ド す る 単位 と 考え て よい で し ょ う . そし て , 複数 の モジ ュー 
ル か ら な る プロ グラ ム の 場合 ., そこ か ら 実 行 が 始ま る モジ ュー ル を “メイ ン モ ジュ ー 
ル "。 その ほか の モジ ュー ル を “サブ モジ ュー ル ” ある い は 単に “" モ ジュール” と 
呼び ます ., 複数 の モジ ュー ル の 中 で どれ が メイ ン モ ジュ ー ル か は , メイ ク (MAK) 
ファ イル と 呼ば れる ファ イル に 書き 込ま れる わけ で す が ,。 プロ グラ ム を モジ ュー 
ル 化 し て 作る 場合 に 。 プロ グラ マ は どの モジ ュー ル を メイ ン モ ジュ ー ル に し た い 
か を 決め て お か な けれ ば な り ま せん .。 な ぜ な ら , プロ グラ ム は メイ ン モ ジュ ー ル 
の モジ ュー ルレ ベル コー ド か ら 実 行 が 始ま る の で , サブ モジ ュー ル の モジ ュー ル 
レベ ルコ ー ド に 書か れ た 実行 文 は 実行 され ませ ん 。 それ に よっ て , モジ ュー ル 化 
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を する 前 に は 予想 し な か っ た バグ を 発生 きせ て し まう 恐れ が ある か ら で す . 

プロ グラ ム を モジ ュー ル 化 する に は , 一 般 的 に 次 の 2 つの 方 法 が あり ます . 

ひと つ は プロ グラ ム を 書い て いる 途中 で サブ モジ ュー ル を 作成 する 方 法 。 も う 
ひと つ は それ ぞ れ の モジ ュー ル を 単独 の プロ グラ ム と し て 作っ て お き , あと で 連 
結 す る 方 法 で す . 順に 説明 し まし ょ う . 

前 者 に つい て まず 述べ る と 。 QB 環境 の 中 で プロ グラ ミン グ を し て いる と き に 。, 
新しく モジ ュー ル を 作る 方 法 で す . まず , QB 環境 の [ファ イル ] メ ニュ ー を 開き , 
その 中 の [サブ ファ イル 作成 ] 機 能 を 選択 し ます . この 項目 は , メニ ュー が ショ ー 
トメ ニュ ー で す と 表示 され ませ ん の で , その 場合 は , [オプション] メニ ュー を オー 
プン し て 。「 フ ル メ ニュ ー| オ プシ ジ ション を オン に し て お いて くだ さい 、。 

そう する と , ファ イル 名 と ファ イル の 種類 を 入力 する 画面 が 現れ ます か ら , そ 
れ ぞ れ 入 力 し ます 。 ここ で いう ファ イル 名 が つま り “サブ プ モ ジュ ー ル 名 ” と いう 
こと に な り ま す . ファ イル の 種類 は ディ フォ ルト が “モジ ュー ル ” に な っ て いま 
すか ら 普 通 は ファ イル 名 だ け を 入力 し て キ ー を 押せ ば よい こと に な り ま す . 

画面 は , その モジ ュー ル 作 成 用 の エディ タ 画 面 に な っ て いま すか ら , サ ブ モ ジュ ー 
ル の 内 容 を プロ グラ ミン グ し ます . 

この 方 法 で モジ ュー ル を 作っ た 場合 ,。 新しく 作っ た モジ ュー ル は すべ て “ サ プ 
モジ ュー ル ” で 。 も と の モジ ュー ル が “メイン モジ ュー ル ” に な り ま す . 

どの ファ イル が メイ ン モ ジュ ー ル で どの ファ イル が サブ モジ ュー ル か を 知り た 
いと き に は , ファン クシ ョ ン キ ー[f2 を 押せ ば わか り ま す . カー ソル を 移動 させ る 
こと に より プロ シー ジャ の 種類 が 表示 され ます ( 図 |.4.). 

な お , プロ グラ ム の セー ブ を 行う と き は , メニ ュー の 中 の [すべ て 保存 ] と いう 
項目 を 選び ます . すべ て の プロ シー ジャ が セー ブ さ れる と 同時 に ,。 プロ シー ジャ 
の 連結 情報 の 書か れ た メイ ク フ ァ イル (ファ イル の 拡張 子 が . MAK の も の ) が ディ 
スク に 書き 込ま れ ま す , これ を MS-DOS の TYPE コ マン ド で 見 て みる と 。 プ ログ 
ラム 中 の モジ ュー ル 名 が 順番 に 書か れん て いる こと が わか り ま す ( 図 |.4.2). こ の 中 
の 一 番 上 に 書か ん て いる モジ ュー ル が メイ ン モ ジュ ー ル で す . 

さて 。 次 に 後者 の 方 法 で す が 。 複数 の プロ グラ ム を それ ぞ れ 単独 の ファ イル と 
し て ディ スク に セー ブ し て お き , あと で 必要 な モジ ュー ル を 連結 し て プロ グラ ム 
全体 を 完成 する 方 法 で す . 

モジ ュー ル を 作る 場合 , QOB の エディ タ で プロ グラ ム を 作っ た あと , モジ ュー ル 
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1.4 モジ ュー ル 
@ 図 1.4.1 [|f:2| キ ー を 押し た 画面 


PRUGIHIN.BRS 
lsHlpha 
lsSUar 
Proc1 


ProC ら 
PROGSUE.ERS 
lsHI num 
lsSHSC ii 
Proc3 ブ プロ シー ジャ の 種類 





PROGSUB.BRS:= モ ジュ ー ル 


@ 剛 1.4.2 PROGMAIN. MAK を TYPE コ マン ド で 表示 


PROGIIN.BRS 


PROGSUB. BRS 





と し て 独立 させ た い 単 位 で 適当 な 名 前 を つけ て ディ スク に セー ブ し て お きま す . 
プロ グラ ム を 構成 する モジ ュー ル を すべ て 別 の ファ イル 名 で セー ブ し 終わ っ た ら , 
メイ ン モ ジュ ー ル に し た い フ ァイル を 最初 に QB の エディ タ に ロー ド し ます . 次 に 
QB 環境 の [ファ イル ] メ ニュ ー を 開き , その 中 の [サブ ファ イル 読み 込み ] 機 能 を 選 
択 し ます . [サブ ファ イル 読み 込み ] 機 能 を 選択 する と, ファ イル 一 覧 が 表示 され , 
どの ファ イル を サブ モジ ュー ル に する か を 問い 合わ せ て きま すか ら , カ ー ソ ルキ ー 
で ファ イル 名 を 選択 すれ ば 。 サブ モジ ュー ル と し て 登録 され ます . メニ ュー に モ 
ジュ ー ル と いう 語句 が 表示 され な い の で , 最初 は 戸惑う と 思い ます が , サブ ファ 
イル と いう 語句 が 。 マニ ュ ア ル で いう と ころ の サブ モジ ュー ル を 指し て いる よう 
で す . サブ モジ ュー ル が 複数 あれ ば , この 要領 で 次 と ディ スク か ら フ ァイル を 
読み 込み 。 サブ モジ ュー ル と し て 登録 し ます . 

ここ で 注意 し な けれ ば いけ な いこ と は , 読み込む モジ ュー ル の 中 の プロ シー ジャ 
名 と ,。 すでに 読み 込ま れ た モジ ュー ル の 中 の プロ シー ジャ 名 に 同名 の も の が あっ 
た 場合 , 読み 込む せこ と が で き な い こと で す 。. 言い 換え る と , 複数 の モジ ュー ル か 
ら な る プロ グラ ム の 場合 も 。 ひ と つの モジ ュー ル か ら な る プロ グラ ム と 同様 に , 
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、 プ 


プロ グラ ム 内 で プロ シー ジャ 名 の 重複 が 許さ れ な いと いう 点 で す . し た が っ て , 
モジ ュー ル 化 を 意識 し た プロ グラ ミン グ を 行う 場合 に は , プロ シー ジャ 名 の つけ 
方 も 慎重 に 行わ な いと,。 モジ ュー ル を 結合 する と き に な っ て ,。 プロ シー ジャ 名 の 
変更 と いっ た 面倒 な 問題 に ぶつ か る こと に な っ て し まい ます . 


1.4.5 モジ ュー ル 解 放 


タグ 


いっ た ん 結合 し た モジ ュー ル は , 簡単 に 切り 放す こと が で きま す . まず 。 [ファ 
イル ] メニュー を 開き , その 中 の [サブ ファ イル 解放 ] 機 能 を 選択 し ます . する と 。, 
ファ イル 一 覧 が 表示 され 。 どの モジ ュー ル を プロ グラ ム か ら 切 り 放 すか を 問い 合 
わせ て きま すか ら , カー ソル キー で ファ イル 名 を 選択 すれ ば , その モジ ュー ル は 
プロ グラ ム か ら 解 放さ れ ま す . 

な お 。, 複数 の モジ ュー ル か ら な る プロ グラ ム の 各 モ ジュ ー ル 名 を 変更 し て 別 フ ァ 
イル と し て 保存 し た い 場 合 。 1 回 の コマ ンド で すべ て の モジ ュー ル を セー ブ す る 
こと は で きま せん . ひと つ ず つ モ ジュ ー ル を ウィ ンド ウ に 呼び だ し た の ち 。 | ファ 
イル ] メ ニュ ー を 開き , その 中 の [ 別 の ファ イル 名 で 保存 …] 機 能 を 選択 し ます . こ 
の と き , メ イン モジ ュー ル の モジ ュー ル 名 は 最後 に 変更 し て セー プ し て くだ さい . 
そう し な いと 。 変 更 し た モジ ュー ル 名 の 情報 が メイ ク フ ァ イル に わた ら な いた め 。 
次 回 に メイ ン モ ジュ ー ル を ロー ド し た と き に , 自動 的 に 読み 込ま れる サブ モジ ュー 
ル は 。 古い モジ ュー ル 名 の も の に な っ て し まい ます . 

も し, その よう に な っ て し まっ た と き は , 古 い モ ジュ ー ル を [サブ ファ イル 解放 」 
機能 に よっ て 。 メイ ン モ ジュ ー ル より 切り 放し 。 新しい モジ ュー ル を [サブ ファ イ 
ル 読 み 込み ] 機 能 を 使っ て 連結 し 直し て くだ さい . 


1.4 モジ ュー ル 
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⑯ ら HARED 


ー ル 内 の み で 有効 で す 。 したがって,。 リ スト |.4.1 に 示す 


この 宣 も 単 一 モジ 


ー ル で 独立 し た 変数 と し て 


うな 場合 , グ ロー バル 変数 No は , それ ぞ れ の モジ 


リスト | 








@1.4.3 





扱わ れ ま す . メイ ン モ ジュ ー ル で No の 値 を 5 に セッ ト し て , サブ モジ ュー ル 内 の 
SUB プ ロ シ ー ジ ャ SubTest を CALL し た と し ます . プ ブロ シー ジャ SubTest 内 で 変数 
No の 値 を 7 に 書き 換え て 。 メ イン モジ ュー ル に 戻し て か ら print さ せ て みる と ,No 
の 値 は 5 の まま で す 。 図 |.4.3 に リス ト |.4.1 の 実行 結果 を 示し ます . 

この こと か ら , グロ ー バ ル 変 数 を 複数 の モジ ュー ル で 共有 し た い 場 合 は ,SHARED 
宣言 だ け で は だ めで ,。 次 に 述べ る COMMON SHARED 宣 言 を 用 いる 必要 が あり 
まず 。 


COMMON SHARED 

COMMON SHARED 宣 言 は 。 グロ ー バ ル 変 数 を モジ ュー ル 間 で 共有 きせ た い 
場合 に 使用 し ます . し た が っ て 。 この 宣言 を し た 変数 は 全 モ ジュ ー ル 間 。 す な わ 
ち プ ログ ラム 全域 で グロ ー バ ル な 変数 に な り ま す . この 宣言 は , CONST な ど と 同 
様 に 。 モジ ュー ル ご と に 必要 で , 変数 を 共有 し た い モ ジュ ー ル の モジ ュー ルレ ベ 
ルコ ー ド で 宣言 し て お か な けれ ば な り ま せん . リス ト 1I.4.1 と 同じ テス ト 内 容 で , 
今度 は , 変数 No を COMMON SHARED 宣 言 を 使っ て グロ ー バ ル 変 数 と し た 場合 
の も の を リス ト |.4.2 に 示し ます . また 。, 実行 結果 を 図 |.4.4 に 示し ます . これ よ 
り 。 サブ モジ ュー ル で 変数 No の 値 が 書き 変わ っ た 結果 が , メ イン モジ ュー ル で 参 
照 で きる こと が わか り ま す .。 


⑳ 配 列 変数 の モジ ユー ル 間 で の 共有 

単純 変数 の モジ ュー ル 間 で の 共有 は , リス ト 1.4.2 の よう に COMMON SHARED 
を 使え ば よい の で す が ,。 配列 変数 の 場合 は 。 あら か じ め DIM 文 で 配列 の 型 と 大 き 
さ を 宣 言 し て お く < 必要 が あり ます . た と えば , x(20) と いう 整数 型 の 配列 変数 を 各 
モジ ュー ル 間 で 共有 し よう と すれ ば 。 各 モジ ュー ル の モジ ュー ルレ ベル コー ド で 
次 の よう な 宣言 を し な けれ ば な り ま せん 。 
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DIM x(20) AS INTEGER 


OOMMON SHARED x( ) AS INTEGER 


省略 し て か まい ませ 
ー ル で 宣言 する 場 


や 
。) 


の 配列 変数 の 大 き さ は 


行 目 の 配列 の 大 き さ ( こ の 場合 は 20) は 各 モ 
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行 目 の COMMON SHARED 宣 
し か 
一 致し な けれ ! 
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1.4.4 モジ ュー ル 間 の エラ ー ト ラッ ピン グ 
お よび イベ ント トラ ッ ピ ング 

QB に お ける エラ ー ト ラッ ピン グ は ON ERROR GOTO ス テー トメ ント と エラ ー 
処理 ルー チン に よっ て 行い ます 。 エ ラー 処理 ルー チン は モジ ュー ルレ ベ ペル コー ド 
に お か な けれ ば な り ま せん . 複数 の モジ ュー ル に わた っ て 機能 する エラ ー ト ラッ 
ピン グ を 実行 する た め に は ,ON ERROR GOTO ス テー トメ ント と エラ ー 処 理 ル ー 
チン は 。 両方 と も メイ ン モ ジュ ー ル の モジ ュー ルレ ベル コー ド に 置い て お く 必 要 
が あり ます . リス ト |I.4.3 は 複数 の モジ ュー ル 間 の エラ ー ト ラッ ピン グ の 例 で す . 
ON ERROR GOTO ス テー トメ ント と エラ ー 処 理 ル ー チ ン FErrTrap は ,。 メ イン モ 
ジュ ー ル ERRMAIN. BAS の モジ ュー ルレ ベル コー ド に 置か れ て いま す 。 プロ グ 
ラム の 実行 は 。 す ぐに サブ モジ ュー ル の SUB プ ブ プロシージャ SubProc に 移り 。 フ ロッ 
ピ ィ ディ スク の B ド ライ ブ プ に シー ケン シャ ルフ ァイル を オー プン し に いき ます 。 こ 
こ で , B ド ライ ブ に フロ ッ ピ ィ デ ィ ス ク が 挿入 され て いな いと , エ ラー 番号 71 の ラ 
ンタ イム エラ ー が 発生 し 。 エ ラー トラ ッ ピ ング が 起こ り ま す 。 メ イン モジ ュー ル 
@ リ スト 1.4.3 


グ 





N EI 2 v GOTO grrTrap 
CALL subproc 


ErrTrap: _ー 
PRINT "Number of ryu : ERR 
ma 四 も ッ ピ ィ ディ ス し ほか + し て , 





2 サブ キジ ュー ル | 





SUB 和 0 の 





1.4 モジ ュー ル 
の モジ ュー ルレ ベル コー ド に 書か れ た エラ ー 処 理 ル ー チ ン に より エラー 発生 の 
警告 と エラ ー 番 号 が 表示 され ます .B ド ライ ブ に フロ ッ ピ ィ デ ィ ス ク を セッ ト し 何 
か の キー を 押す と , RESUME ス テー トメ ント の 働き に よっ て , エラ ー を 発生 し た 
命令 か ら 再 び 実 行き れ ま す . 

RESUME ス テー トメ ント の ほか に , エラ ー 処 理 ル ー チ ン か ら 実 行 を 戻す の に 
RESUME NEXT ス テー トメ ント も あり ます . これ は , エラ ー を 引き 起こ し た 次 
の ステ ー ト メン ト に 実行 を 移す も の で , RESUME ス テー トメ ント と は 8 必要 に 応じ 
て 使い 分 け ま す . も う ひ と つ RESUME 行 ラベ ル ( ま た は 行 番号 ) と いう ステ ー ト メ 
ント も あり ます が , この 行 ラ ベル は SUB あ る い は FUNCTION プ ロ シ ー ジ ャ に あっ 
て は いけ な いた め , 使い 方 が か な り 限 定 さ れ ま す 。 普通 は 使わ な い ほ う が よ いで 
し まう 。 

イベ ント トラ ッ ピ ング は , ある 特定 の キー が 押さ れ た 場合 な ど に , プロ グラ ム 
の 流れ を 中 断 し て 。 あらかじめ 用 意 し て お いた イベ ント 処理 サブ ルー チン に 実行 
を 分 岐 さ きせ ます .“ イ ベント” に は , ある 特定 の キー が 押さ れ た 場合 の ほか に , シ 
ステ ムク ロッ ク の 経過 時 間 . ライ トペ ン あ る い は ジョ イス ティ ッ ク の 操作 。 シリ 
アル ポー ト 通 信 , PLAY コ マン ド に よる 音楽 の バッ ファ の 変化 な ど が あり ます . 
イベ ント トラ ッ ピ ング を 行う に は まず 。 


ON イベ ント GO8SUB 行 番号 ( 行 ラ ベル ) 
と いう ステ ー ト メン ト を 書い て お きま す . そし て 。 イ ベン トト ラッ ピン グ を 開始 
し た い 場 所 で 。 

イベ ント ON 


ステ ー ト メン ト を 書き ます .。 イ ベン トト ラッピン グ を 中 止 き せ た い 場合 は その 位 
中 で 


イベ ント OFPF 


ステ ー ト メン ト を 書け ば よく , 再び イベ ント ON ステ ー ト メン ト を 書く まで イベ 
ント トラ ッ ピ ング は 働き ませ ん . 

イベ ント 処理 サブ ルー チン を モジ ュー ルレ ベル コー ド に 書か な けれ ば いけ な い 
の は ,。 エラ ー ト ラッ ピン グ の 場合 と 同様 で 。 これら の トラ ッ ピ ング を 使い に くい 


SS 


も の に し て いま す . た だ し , 複数 の モジ ュー ル か ら な る プロ グラ ム の 場合 , 
ン モ ジュ ー ル の モジ ュー ルレ ベル コー ド に 書か れ た イベ ント 処理 サブ ルー チン を, 
すべ て の モジ ュー ル の プロ シー ジャ か ら 利 用 で きま す . 

イベ ント トラ ッ ピ ング の 例 の ひと つと し て , 2.3 の パー ソナ ル 上 単語 忠 プ ログ ラム 
で 使っ た ,。 タイ マー トラ ッ ピ ング を 説明 し まし ょ う 。 

ここ と では, シス テム クロ ッ ク を 使っ て ,。 パー ソナ ル 上 単語 帳 の ディ スプ レイ 画面 
に 現在 時 刻 を 1 秒 単位 で 表示 させ て , 時 計 の 働き ちさ せよ うと いう も の で す . 

メイ ン モ ジュ ー ル の モジ ュー ルレ ベル コー ド に ON イベ ント GOSUB 行 番号 ス 
テー トメ ント を 書き ます 。 ここ で は 。 


ON TTMER(1) GOSUB DispTime 


と 書か ん れ て いま す . これ は , TIMER の 引数 が 示す 値 の 秒 数 ご と に , サブ ルー チン 
DispTime の 処理 を 行い ます . 例 で は 引数 が 1 で すか ら 1 秒 ご と に サブ ルー チン の 
処理 を 行い ます . 

次 に 。 メ イン モジ ュー ル の モジ ュー ルレ ベル コー ド に 。 イ ベン ト 処 理 サ ブル ー 
チン DispTime を 記述 し ます . 

その 内 容 は , まず 


双 Pos= PO8(0) 
YPos=CSRLTN 


に よっ て ,。 処理 を 行う 直前 の カー ソル の 双 X と Y 座 標 の 値 を 。 変数 XPos と YPos に 保 
人 存 し ます 。 
炊 に, 


LOCATE ClockROowW, ClockCO1 
PRTINT DATES 

LOCATE ClockRow 二 1, OlockOCol 1 
PRINT TTMES 


ーー テディ スプ レイ の 所 定 の 位置 に , 年 月 日 と 時 刻 の 表示 を 行い ます . 
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LOCATE 共 Pos, YPOS 


で 保存 し て お いた カー ソル 位置 に カー ソル を 戻し て お きま す . 

この 処理 を 1 秒 ご と に 行い ます か ら ,。 この 一 連 の 処理 は , 単語 帳 プ ログ ラム の 
処理 と は 独立 し て , 時 刻 を 画面 に 表示 し て いる よう に 見 える わけ で す . 

これ で タイ マー イベ ント トラ ッ ピ ング の 準備 が 整っ た の で , あと は ,。 画面 に 
刻 表 示 を させ た いと ころ で 


TIMER ON 
を , 表示 させ た く な いと ころ で 


TTMER OFE 


ロ I 山 ! 


E 述 すれ ば よい わけ で す . パー ソナ ル 単 語 帳 プ ログ ラム で は ,。 基本 的 に どの 
面 で も 時 刻 表 示 を 行う こと と し , 2 3 の 不用 な 場面 の み TIMER OFF を 使う こと 
に し て いま す . リ スト |I.4.4 に サブ ルー チン DispTime の コー ド を 示し て お きま す . 





トノ 
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1.4.5 モジ ュー ル 化 の た め の 曽 意 点 


プロ グラ ム を モジ ュー ル 化 する こと は , た し か に メリ ッ ト も 多く , 第 2 部 の い 
くつ か の プロ グラ ム で も , モジ ュー ル に 分 割 し た プロ グラ ム 構 成 に し て いま す . 
し か し ,。 モジ ュー ル 化 を し た 場合 。 いろ いろ な 注意 事項 を 忌 っ て プロ グラ ミン グ 
を 行う と , 思わ ぬ バ グ を 発生 きせ る こと に な り ま す .。 そし て その バグ も プロ グラ 
ム が 分 割 さ きれ て いる が ゆえ に , 発見 が 難し く , プロ グラ ム 作 成 効率 を か えっ て 悪 
化 さ せる と いっ た 事態 を 引き 起こ す 場 合 も で て きま す . 

そこ で ここ で は , モジ ュー ル 化 を する 場合 に 。 と くに 留意 し な けれ ば いけ な い 
点 を 考え て みた いと 思い ます . 


モジ ユー ル 間 の 値 の 引き 渡し は 引数 渡し で 

複数 の モジ ュー ル か ら な る プロ グラ ム で ,。 全 モ ジュ ー ル で 特定 の 変数 を 共有 す 
る こと は で きま す が 。 これ は 各 モ ジュ ー ル の 独立 性 を か な り 犠 牲 に する の で , で 
きる だ け 避 けた ほう が よい で し ょ う . と くに 数 多く の 変数 を 共有 させ る の は バグ 
発生 の も と で す . それ ぞ れ の プロ シー ジャ 間 で 引数 渡し に すれ ば 。 モジ ュー ル の 
独立 性 も 保 て 。 モジ ュー ル 化 の メリ ッ ト も 増す と 思わ れ ま す . 


CONS 「 の 上 まな お 使用 法 

QB で は CONST が 使え を る よう に な り , ずい ぶん プロ グラ ム の 可読性 が よく な り 
まし た . 定数 を うっ か り 書 き 換 えて し まう と いう トラ ブル も な く な る で し ょ う . 
と ころ が 。 CONST は ひと つの モジ ュー ル 内 だ け で 有効 な た な ため, プロ グラ ム を 構成 
する ほか の モジ ュー ル で 宣言 を し 忘れ る と, そちら で は 変数 と し て 扱わ れ て し ま 

い 。 思わ ぬ バ グ を 発生 し て し まい ます . この トラ ブル を 防ぐ に は ,。 共通 に 使う 定 
数 を 忘れ な いよ うに , すべ て の モジ ュー ル で 宣言 する こと で す が 。 定数 の 数 が 多 
いと 漏れ が 生ずる 葉 れ が あり ます 。 そこで 。 メイ ン モ ジュ ー ル の モジ ュー ルレ ベ 
ルコ ー ド で CONST を 宣言 する 場合 な る べく まとめ て 宣言 し て 。 サブ プ モ ジュ ー ル 
に は それ を まる ご と コピ ー す る よう に すれ ば トラ ブル は 防げ ます . 

また 。 も う ひ と つの 方 法 と し て , $INCLUDE メ タコ マン ド を 使用 する 方 法 が あ 


SO 


1.4 モジ ュー ル 
り ま す . これ は 。 CONST の 宣言 を まとめ て 行っ た ら 。 そ れ ら だ け を 。 フ ァイル 名 
を つけ て フロ ッ ピ ィ デ ィ ス ク に セー プ し て お お きま すず 。 
た と えば 。 次 の よう な 記号 定数 を 複数 の モジ ュー ル で 使い た い 場 合 。 この 2 行 
プロ ッ ピ ィ イデ ィ ス グ に ビ に テキスト デ ァ イ 光 と し て セー ジジ し て 沙 き すず 


CONST PT = 3.14159 
CONST RFalse = 0, True = NOT Halse 


ここ で は 。 仮 に “TEISU1.BAS" と いう ファ イル 名 で セー ブ し た と し ます . 
次 に , 各 モ ジュ ー ル で CONST 文 を 記述 する 代わ り に ,。 次 の ひよ うに, $INCLUDE 
メタ コマ ンド を 記述 すれ ば よい の で す 。 


' や 1NCLUDE: EBISU1 .BAS' 


QB は 。 フロ ッ ピ ィ イデ ヂ ディス ク か ら フ ァイル “TEISU1.BAS" を イン クル ー ド し 
て き て , メタ コマ ンド と 置き 換え ます . この 方 法 を 使え ば, いく つか の 定数 を 宣 
言 し 忘れ る こと に よっ て 起こ る , 比較 的 発見 し に くい バグ の 発生 を 防止 する こと 
が で きま す . 


リスト 


の 








情報 x」。x。,。 …,。x』。 を まとめ て (Xi。x。。 …,。 x』) の よう に 並べ た も の を 線形 リ 
スト 。 xi。Xxz。…。X。 を 要素 と 呼び ます . 要素 x」 に 対し て x,_-」 を 左側 の 要素 。x」」」 
を 右側 の 要素 と 呼び ます . 要素 を 1 個 も 持た な い 線 形 リ スト ( ) を 空 な 線形 リス ト 
と 呼び ます . 以下 , 本 草 で 扱う リス ト は 線形 リス ト な の で それ を 単に リス ト と 呼 
と ど と ち に し ます 。 


1.5.1 1 次 元 配列 上 の リス ト 


ン ン 


シン 


情報 x,。x。。…。x。』 を 順に 並べ る 方 法 に は 。 た と えば 配列 xG⑪)G= ニ 1.2.…n) に 順 
に xi。 X2。 …。 X』。 を 入れ る こと が 考え られ ます 。 xi。x。。…。 x。 が 昇順 に 並ん で 
いる と する と , 配列 x( ) に 実現 きれ た リス ト は , その 大 き さ が 昇順 に 並ん だ も の と 
な り ま す . し た が っ て , x⑪ の 値 は , 小さ い ほ うか ら i 番 目 の 値 と な り ま す . 

と ころ で , 配列 の よう な , は じ め か ら 順 に 並ん で いる メモ リ に 情報 を 格納 する 
と ,。 新しい 情報 yY を 加え を よう と する と き , その 順序 を 月 さき な いよ うに y を リス ト に 
付加 する に は , y よ り 大 き な 値 を 持つ 情報 を , すべ て 1 だ け 右 に ずら さ な く て は な 
り ま せん .. 情報 の 数 n が 小さ い 場 合 は と も か く , 大 きく な る と これ は な か な か や っ 
か いな 話 に な り ま す . 

逆 に , 情報 x, を 除く と する と , 穴 を うめ る た め に や は り xi』」。 …。x』 を 左 に すべ 
て 移動 し な く て は な り ま せん . 要素 の 数 n が 大 きく な る と , 移動 に 要する 時 間 も 多 
く な る の で , この 形式 で リス ト を 実現 する こと は あま りあ り ま せん . 


1.5 りり スト 
@ 図 1.5.1 配列 上 に 実現 し た リス ト と , リス ト へ の 挿入 お よび 削除 


ls ls| | |rlelsmleml- 15 
ls ls | …| |・ 選 還 
x-1 く y く x な る y を 挿入 


xi を 削除 


1.5.5 リス ト の リン ク 表 現 


線形 リス ト に 対し て 新しい 要素 を 加え た り , 逆 に 要素 を 除去 し た りす る 操作 が 
必要 な 場合 に は , 1 次 元 配 列 を 利用 し た リス ト は 使い や すく あり ませ ん . この よ 
うな 場合 に は , 要素 を 含む 記憶 領域 の 相互 の 結合 を 表す こと の で きる , リン ク 表 
現 と 呼ば れる 方 法 を 用 いま す . 

リン ク 表 現 で は , 要素 の 情報 を 格納 する た め の 記 憶 領域 の ほか に , 結合 を 表す 
リン ク 情 報 を 格納 する 記憶 領域 を 必要 と し ます . 1 個 の 要素 の 情報 と 。 リ ンク 情 
報 を まとめ て 格納 する 記憶 領域 を 節 (node) と 呼び ます . 節 の 中 に , 左 と 右 の リン ク 
を 同時 に 含む も の を 2 方 向 リ ンク 表現 。 1 方 向 の リン ク の み を 含む も の を 1 方向 
リン ク 表 現 と 呼び ます . 

QB で は , TYPE 宣 言 に より , デー タ 構 造 を 表現 する デー タ 型 を 作成 可能 で す . 
1 方 向 リン ク 表 現 を 実現 する 例 と し て ,。 次 の よう な 型 宣言 と 変数 宜 言 を し て お き 
まま 、 





ググ 


クン 


CONST TListSize=100 

CONST TnfSizge=20 

TYPE node 
Tnf As STRTING ※* InfSize 
right As INTEGER 

BBND TYPE 


DIM (ListSize)AS node 


ここ に , ListSize 三 100 と は , 節 の 数 が 最大 100 個 で ある こと , InfSize 三 20 は , 
格納 すべ き 情 報 が 最大 20 文 字 以 内 で ある こと を 表し ます . 型 node は , 要素 と し て , 
大 きき さ InfSize バ イト の Inf と, 整数 型 の right を 持ち ます . そし て , node 型 の 配列 
x( ) を 宣言 し ます . この 宣言 で は , 配列 の 添字 は ゼロ か ら 始 まる も の と し ます . 

型 node は 2 つの 要素 Inf と right か ら な り ま す . right は リン ク 情 報 を 持っ て いま 
す .。 これ を 2 つの 部 屋 を 持つ 箱 で 表し ます ( 図 !.5.2). 

e 図 1.5.2 1 方 向 リン ク 表現 リス ト 


箱 の 中 の 左 の 部 屋 を 情報 が 格納 され た Inf に , 右 の 部 屋 を リン ク を 表す right に 対 
応 き せ て あり ます . 図 |.5.2 の リス ト の 一 番 左 の 節 は 特別 な 館 と し , リス ト の 先頭 
に リン ク す る も の と し ます . プ ログ ラム 上 で は x(0).right と し ます , その 人 節 に は 情 
報 は 格納 し ませ ん 。 一 番 右 の 節 の リン ク は ,。 これ 以上 存在 し な い の で , レレ] で 表し 
ます . プロ グラ ム 上 は 。 定数 Nil を ゼロ と 宣言 し 。 Nil を 書き 込ん で お く こ と に し 
ます 。 各 x( ) の 添字 は , 配列 の 添字 と は 普通 は 一 致し ませ ん . 

簡単 に する た め に 要素 と し て Pascal, Modula2,C, MBASIC, QuickBASIC 
の 5 つの 語 を 配列 x( ) に 格納 し , リス ト を 構成 し て み ま す . 

は じ め は , どの 節 に も 情報 は 入っ て いな い の で , 次 の よう に な り ま す . 


X(0). right=Nil 


図 !.5.2 で 言え ば , 一 番 左 の 箱 の み が 存 在 し , その 節 の 右 の 部 屋 は | と な っ て い 
ます . 
最初 の 情報 と し て , Pascal を リス ト に 加え ます . これ を x(1).Inf に 格納 する と, 
次 の よう に な り ま す . 


x(1).Inf="Pasca1" 
x(1).right=Nil 
(0). right=] 


図 で 描け ば , 図 |.5.3 の よう に な り ま す . 
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1.5 リス ト 


@ 図 1.5.3 
] 


U 
「 ト HLss ルン 


以下 同様 に し て , Modula2,C, MBASIC, QuickBASIC を 書き 込み ます . まだ 
使用 きれ て いな い x(2), x(3), x(4), x(5) に 順に 入れ る と し ます . する と , 
e 図 1.5.4 


4 O 


/ J 
Fe] Fexse elfcooexse / 


と な り ま す . 左 の 箱 の 上 の 数 字 は , 配列 の 添字 を 表し ます . 

この 図 を 見 る と , 図 |.5.1 の 1 次 元 配列 を 使用 し た リス ト と な ん ら 変 わる と ころ 
が な いよ うに 感じ られ ます 。 し か し , リス ト か ら あ る 箱 を 削除 する こと を 考え る 
と この 意味 が は っ きり し ます . た と えば ,。 上 の リス ト か ら “Modula2” を 削除 す 
る と し ます . この 場合 に は , 単に リン ク を 書き 換え れ ば よい こと に な り ま す 。 す 
な わ ち 。“Pascal” を 格納 する x(1) の 右 リ ンク を, 直接 3 と すれ ば よい の で す . プ 
ログ ラム 的 に は , 





x(1).right=3 


と すれ ば 。 節 x(2) は 削除 され た こと に な り ま す . 図 で 描け ば 。 
@ 図 1.5.5 


U ] 
[er に 


と ます 。 

新しい 情報 を リス ト に 追加 する 場合 に は , 次 の よう に な り ま す . x(6).Inf に “Ada" 
を 書き 込み 。 それ を “C と "MBASIC" の 間 に 入 れ た いと し ます . リン ク 部 を 書 
き 換 える こと に な り ま す 。 








2 


4 O 





/ 
_Modula2" | - 鞭 


x(6).right=x(3).right 
x(3). right=6 
x (5). Inf="Ada" 


@ 図 1.5.6 





注意 す ベ き は , は じ め の 2 つの 代入 文 の 順序 は 逆 に で き な い こと で す . 
以上 述べ た 内 容 を 実行 する プロ グラ ム を リス ト 1.5.1 に 示し ます . 各 プロ シー ジャ 
は 次 の よう に 働き ます . 


SUB AddNode(a$,1) 
x(i).Inf に a$ を 書き 込ん で ,。 リス ト の あと に 接続 し ます . 
SUB DeleteNode(,]) 
x(i) の あと の 人 節 xG) を 除き ます . 
SUB TnsertNode(a$b,]) 
a$ を x)).Inf に 書き 込み 。 x() の あと に 挿入 し ます . 
SUB PrintNode 
リス ト の 内 容 を 節 の 添 子 と と も に 表示 し ます . 
また 。 変数 x( ) は 。 グロ ー バ ル と する た め に SHARED で 宣言 し て お きま す . 


以上 で ,。 リス ト の リン ク 構 造 と 最小 限 の 機能 で ある 節 の 挿入 と 削除 に つい て , 
理解 され た と 思い ます . 

実際 に プロ グラ ム す る た め に は ,。 も う 少 し いろ いろ な こと を 考え る 必要 が あり 
ます . その ひと つ は 。 削除 きん れん たため に ,。 い わ ゆ る ゴミ と な る メモ リ の 処理 で す . 
ここ で は , 削除 され た 節 を , 再 利 用 可能 な リス ト ( そ れ を 上 自由 リス ト と 名 づけ る ) 
に 格納 する こと に し ます . し た が っ て 。 メモ リ 上 に は ,。 “Pascal"。“C” な どの 情 
報 の 書き 込ま れ た リス ト と , 情報 が 書き 込ま れ て いな いか 。 ある い は 不要 と な っ 
た 情報 か ら な る 自由 リス ト の 2 つ を 管理 し ます . し た が っ て , プロ グラ ム 実 行 時 
に は , この 2 つの リス ト が 存在 する こと に な り ま す . 

次 に , リス ト に デー タ を 挿入 する 場合 , 昇順 ある い は 降順 に リス ト を 構成 する 
こと に し ます . 挿入 すべ き 位 置 を 自動 的 に 捜し ,。 その 位置 に 書き 込み ます . た と 
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@ リ スト 1.5.1 


h う k ト 5 っ k ト っ k ト 5h5 ト う 5 やゆ テロ テー ビー ビビ ロビ ビビ 


ト う よう 
Op -1 


くく こく この の 


3 の 
36・ 
は 
38・ 
39・ 
40: 
41 : 
42・ 
43: 
44: 
45・ 
46 : 
4/ : 
48・ 
49: 
50 : 
、 94: 
5 る * 
v9 人 
o54: 
SS ) 
56 : 
57・ 
58・ 
59・ 


〈 〇 で びさ の の の 必 の ら の らら ピピ ビ 


トウ 
の > ゝ 
1 26008 が すず を 


も うら 
くら 


DECLARE SUB InsertNode (a$, 1!, !) 
DECLARE SUB AddNode (a$, 1!) 
DECLARE SUB DeleteNode (1!, ]!) 
DECLARE SUB PrintNode () 「 
CONST ListSize = 100 

CONST InfSize = 20 

CONST Nil] = 0 


TYPE node 0 
Tnf AS STRING * InfSize 
right ASINTEGER 

END TYPE 


DH 放 SHARED X(LiStS1Ze ) AS node 
DATA Pascal ,Modu1a2,C,MBASIC,QuickBASIC,Ada 


X(0).right = Nil 
FOR 1 = 1 TO 5 

READ a$ 

CALL AddNode(a$, 1 ) 
NEXT 1 
CALL PrintNode 
CALL DeleteNode(1, 2) 
CALL PrintNode 
READ a$ 
CALL InsertNode(a$, 3, 6) 
CALL PrintNode 


SUB AddNode (a$, 1) 
X(i)...Added Node 


NextNode = 0 
DO 
IF x(NextNode) .right = Ni1l TIEN 
EXIT DO 
END IF 
NextNode = X(NextNode ) .right 
LOOP 


Xx(NextNode).right = 
X(i).right = Nil 
X(1) nf = Aa$ 

END SUB 


SUB DeleteNode (1i, ]) 
X(j)...Deleted Node 
”  X(1)...preceeding Node 
X(i).right = xX(]) .right 
END SUB 


SUB InsertNode (a$, ji, ) 
” XX(])...Inserted Node 
Xx(i)...Preceeding Node of xX(]j ) 


Xx(]j).right = x(i).right 


1.5 リス ト 


6o 





えば “Pascal"。 “Modula2"。“C を この 順に 挿入 する と 。 次 の 図 の リス ト が で き 


ます 。 
@ 図 1.5.7 





この リス ト に , デー タ “"MBASIC" を 挿入 する に は “C の あと に 入れ な く て は な 
り ま せん .“C" は x(3) に 入っ て いる の で , 添 字 3 を 捜す 必要 が あり ます . x(0).right 

* リ スト の 先頭 を 指し て いる の で , リス ト の 先頭 か ら , 挿入 し た い デ ー タ より 大 
きい か 等 し い デ ー タ を 含む 節 を 順に 捜し ます . その 節 を 指し て いる 節 の 添字 が , 
求め る 添字 に な り ま す . プロ グラ ム で 表す と 次 の よう に な り ま す . a$ に 挿入 し た 
い デ ー タ が 入っ て いる も の と し ます . 


=0U 
1=X(]).right 
DO 
TE' ab く =x(i).Inf THEN 
区 TT DO 
LSETE' x(i).right=Nil THEN ' 


XXITDO 


1.5 リス ト 


BLSE 
]=1 
1=X(1).T1ght 
BBND TE 
OO 
FindTInsertedPO8=] 
実際 の プロ グラ ム で は , 上 の ルー チン を 関数 に し て あり ます . 
次 に , 削除 する 場合 を 考え ます . 削除 し た い デ ー タ を 含む 節 の 添字 を 捜す た め 
に は , 上 の 方 法 と 類似 の 考え 方 を し ます . た だ し , 不 等 号 は 等 号 に し , 次 が リス 
ト の 終わ り に な っ た ら 終 了 と し ます (すなわち リス ト 中 に 削除 し た い デ ー タ は 存在 
し な か っ た ). この 部 分 は 全体 の プロ グラ ムリ スト 1|.5.2 を 参照 し て くだ さい . 
削除 され た 節 ( 配 列 x( )) は , 再 使用 の た め に 自由 リス ト に 加え ます . 自由 リス ト 
の 先頭 を 指す 変数 を Empty と する と , 


X(1).right=mpty 
mptyY=1 


と な り ま す . ここ に , i は 削除 され た 節 の 添字 で す .。 図 で 示す と 次 の よう に な り ま 
す . 情報 の 入っ て いる リス ト を デー タリ スト と 名 づけ ます . そこ か ら ,“MBASIC" 
を 削除 し ます . 

“MBASIC" を 含む x(4) が デー タリ スト か ら 削 除き され , 自由 リス ト の 先頭 に 加え 
られ まし た . 逆 に , 自由 リス ト の 利用 の た め に は , 自由 リス ト の 先頭 の 節 を 取り 
出し ます . 挿入 に 先立ち 目 由 リス ト の 有無 が 調べ られ , 可能 な 節 が ある と き , そ 
の 添字 を 返す に は 次 の よう に し ます . 

@1.5.8 

デー タリ スト 


U @ 3 4 Z ] ン 
la] で 4 入 し VeASiC 1PeL Vodue2" | eT=| Pescallefe uekBASIC1/ 






Empty 


本 に 還 
ーー SN NN 


目 由 リス ト 






TEF' Bmpty=Nil THEN 
PRINT"NOT available any Free node.“ 
GetNode=Nil 
ELSE 
GetNode=mpty 
Bmpty=X(Bmpty).right 
BND TPF 


上 に 述べ た 内 容 を 実際 に プロ グラ ム し た も の を リス ト |I.5.2 に 示し ます . ただし, 
プロ シー ジャ PrintNode は , リ スト 1I.5.1 の それ と 同一 な の で , リス ト 中 か ら は 省 
いて あり ます . 

各 プ ロ シ ー ジ ャ に つい て 簡単 に 説明 し て お きま す . 


SUB InitFreeList 
プロ グラ ム の は じ め に 実行 され, すべ て の 配列 を 上 自由 リス ト に 加え ます . 
リス ト の 先頭 は , 変数 Empty が 指し ます . 
FUNOCTTON HindTnsertedPos(a) 
a$ を 挿入 すべ き 位 置 を 返す 変数 で す . 関数 値 を 添字 と する 節 の あと に 挿入 
し ます 。 
プロ シー ジャ SUB InsertNode(a$) 中 で 呼ば れ ま す . 
FUNCTTON GetNode 
自由 リス ト の 先頭 の 位置 を 返し ます . 目 由 リス ト が 空 の 場合 に は , Nil を 返 
し ます . プロ シー ジャ SUB InsertNode(a$) 中 で 呼ば れ ま す . 
SUB TnsertNode(a や ) 
a$ を , 左 か ら 右 へ と 昇順 に 並べ た リス ト の 該当 する 位置 に 挿入 し ます . 
SUB DeleteNode(a ゃ ) 
a$ を 含む 節 を 捜し 削除 し ます . 見 つか ら な い 場 合 に は , メッ セー ジ を 出し 
て 終了 し ます . 削除 され た 人 節 は , 空き リス ト の 先頭 に 挿入 され ます . 


1.5 


@ リ スト 1.5.2 


(の O 〇 C コ の の 〇 むら の も も ピ ビ 


60・: 


DECLARE FUNCTION FindInsertedPos! (a$) 
DECLARE SUB InitFreeList () 

DECLARE FUNCTION GetNode! () 

DECLARE SUB InsertNode (a$) 

DECLARE SUB DeleteNode (a$) 

DECLARE SUB PrintNode 【() 


CONST ListSize = 6 

CONST InfSize = 20 

CONST Nil = 0 

CONST false = 0, true = NOT false 


TYPE node 
Tnf AS STRING * InfSize 
right AS INTEGER 

END TYPE 


DI SHARED x(ListSize ) AS node 
DI SHARED EmDtY 


DATA Pascal,Modula2,C,MBASTIC,QuickBASIC,Ada 


Xx(0).right = Nil 

CALL InitFreeList 

FOR 1 = 1 TO6 
READ a$ 
CALL InsertNode(a$) 
CALL PrintNode 
INPUT z$ 

NEXT 1 


RESTORE 

FOR 1 = 1 TO0 6 
READ a$ 
CALL DeleteNode(a$) 
CALL PrintNode 
TNPUT Z$ 

NEXT 1 


END 


SUB DeleteNode (8$) 
′  Xf 介 )...Deleted Node 
X(])...Dreceeding Node 
b$ = LEFT$(a$ + SPACE$(InfSize), InfSize) 


) ・ 0 
1 = X(]) .right 
DO 
F b$ = xi) .Inf TEN 
EXIT DO 
END IF 
] = } 


1 = X(]).right 
LOOP UNTIL i = Nil 
EEF ji = Ni1 THIEN 
PRINT "Not found “": CHR$(34): a$ + CHR$(34),) " in this List." 
EXIT SUB 
END HF 


Xx(}j).right = x(1i).right 


リス ト 


67 





1.5 リス ト 


1.5.3 その ほか の リス ト 表 現 


ダグ 


ッ ク の 


前 節 で は , 左端 を 先頭 と する 1 方 向 リ ンク 表現 リス ト を 説明 し まし た . リス ト 
の 先頭 は 。 x (0) .right が 指し て いま す . この 場合 に は 。 添字 ゼロ の 節 を 。 先頭 を 指 
す ヘ ッ ダ と し て 利用 し まし た . 一 般 的 に は 。 た と えば 変数 head を 利用 し た ほう が 
挿入 や 削除 の プロ グラ ム は いく ら か 複 雑 に な り ま す が 。 可読性 は よく な る で し ょ 


テ 


当 ca 


線形 リス ト に は ,。 図 1.5.2 で 示し た 直線 状 に デー タ の 並ん だ も の の ほか に 。, 右端 
が 左端 を 指す 環状 の も の も あり ます . 
@ 図 1.5.9 環状 リス ト 


また , リン ク が 左右 両方 向 を 指す も の も あり ます . 線形 リス ト は 下図 の よう に 
表 さ れ ま す . 


@ 図 1.5.10 2 方 向 性 リス ト 


head 


この リス ト の 場合 に は , 添字 1 を 持つ 節 の 削除 は , 節 が 右端 また は 左端 で な いと き 。 


X(X(1).Tight).1eft=x(1).1eft 
X(X(1).1eft).right=x(1).right 


と 簡単 に な り ま す . 1.5.2 で 述べ た よう に ,。x(⑪) を 指す 節 の 添字 j を 必要 と する よう 
な こと は あり ませ ん 。 


1 再 放 


再帰 と は , 自ら の も と に 帰る こと を 意味 し ,。 プロ グラ ム 上 で は , 再帰 的 呼び 出 
し と いう 形 で 現れ ます . プロ グラ ム が 再帰 で ある た め に は , その も と の アル ゴリ 
ズム が 再帰 で ある こと が 必要 で す . ア ル ゴ リ ズム が 再帰 と な ら な い プ ログ ラム に 。, 
再帰 的 呼び 出し を 用 いる こと は で きま せん が , 処理 速度 や スタ ッ ク の 深 さ の 制約 
か ら , 再帰 的 アル ゴリ ズム を 非 再帰 的 に 変更 する こと は よく 行わ れ ま す . 

従来 の BASIC で は ,GOSUB に よる サブ ルー チン コー ル を 用 いて 再帰 的 に 行う こ 
と が 可能 で し た が 。 変数 が すべ て 大 域 的 で ある た め に , 再帰 的 呼び 出し を 行う た 
め に は 特別 な 工夫 が 必要 で し た . し か し , QB で は , プロ シー ジャ の 再帰 的 呼び 出 
、 し が 許さ れる た め , プロ グラ ミン グ は た い へ ん 楽に な り ま し た . 


1.6.1 再帰 的 呼び 出し 


再帰 的 呼び 出し と は , プロ シー ジャ P 内 で 再び P を 呼び 出す こと で す . より 一 般 
的 に は 。 2 つ 以 上 の プロ シー ジャ P,,。 P。,。…,。P。 が P」 の 中 で P。 を ,。P。 の 中 で P。, 
… と 順に 呼び 出し , 最後 に P。 の 中 で 再び P」 を 呼び 出す よう な も の も 再帰 的 呼び 出 
し と 言い ます 。 

再帰 的 呼び 出し で よ < 知ら れ て いる も の に 階 乗 の プロ グラ ミン グ が あり ます . 
階 乗 は 次 の よう に 定義 され ます . 


タグ 


。 プ 


ーー 
n(n-1) ! n>0U 


n が ゼロ で な いか きり ,n と (mー1)『! の 積 を 求め ます . こ れ を プロ グラ ム す る と , 
リス ト 1I.6.| の よう に な り ま す 。 上 式 が , その まま すなお に プロ グラ ム さ れ て いま 


ます 、 


/2 


1.5 再帰 
@ リ スト 1.6.1 障 乗 の ブロ グラ ム 


DECLARE FUNCTION fact& (1 
・ Factorial] demo 


: DIM n AS LONG 
: DIM f AS LONG 


FOR n まき まり 12 

f = fact&(hn) 

PRINT "Factorial(": Ni )* : 
NEXT n& 


用 旭 


・ END 


ーー 
テー の Co ココ の の ck トビ 


・ FUNCTION fact& (n&) 
THF n& <= 0 EN 
fact& = 1& 
4 ELSE 
18: fact& = n& * fact&(n& - 1) 
9 0 
20: END FUNCTION 
メ 21 ・ 


ーー デー ビビ 
〇 ゝ 〇 1 で うっ ト 5 


再帰 的 呼び 出し プロ グラ ミン グ で 注意 する こと は , 呼び 出し の 停止 条件 を 忘 
な いこ と で す . この 例 で は , 引数 の 値 が ゼロ の 場合 , 定数 1 を 関数 値 と し て と り , 
それ 以上 自分 自身 を 呼び 出さ ず , 再帰 呼び 出し は 終わ り ま す . 

再帰 的 呼び 出し を 含む プロ グラ ム の 例 を 2 つ あ げ ま す . 





前 節 で 作成 され た リス ト の 内 容 を 逆順 に 出力 する プロ グラ ム を リス ト |.6.2 に 示 
し ます . 関数 PrintByReverse は 引数 と し て , リス ト の 先頭 。 すなわち, x(0) .right 
を 渡し て 呼ぶ と 。 リ スト の 節 の 内 容 を 逆順 に プリ ント し ます . 

x(i%).right が Nil で な いと き は , その と き NN 本 明和 学 
の 右 リ ンク され た 節 を 調べ ます . その 先 に リス ト の 要素 が な い ,。 すなわち 。, 

@ リ スト 1.6.2 産 順 軸 カプ ログ ラム 


113: | 

114: SUB PrintByReverse (G%) / 

115: DI S AS STRING * Ji ーー 

116: P ィ U1X) . right <> Ni]1 THEN 
POT PrintByReverse(x(%). ri 








まま まく し AL 

118: Dr 

119: 8 = ァ (1%) . 』r 、 ーー 
20) PRINT USTNG MM し 1 5 
1 END SOB_ 


/ う 


メー タ i=Nil に な る と ,。 そ れ 以 上 の 呼び 出し を や め 。 セ ー ブ さ れ て いた 内 容 を プリ 
ント し ます ., 最後 に 呼び 出さ れ た と き の 節 の 内 容 が 1 番目 に 。 その 直前 に 呼ば れ 
た 節 の 内 容 が 2 番目 に 。 … と 送 順に プリ ント され ます ., 








2 数 a と b の 最大 公約 数 は ,。 a>b と する と, a を b で 割っ た 余り r が ゼロ な ら ば , そ 
の と き の b が 最大 公約 数 。 も し, ゼロ で な いな ら ば 。 r く b な の で 。 b と r に つい て 同 
様 な 手続 き を 繰り 返す こと に より 得 ら れ ま す . 

これ は , r く b の 場合 , b を a に 代入 し , r を b に 代入 する こと に より , 再び 同一 の 
アル ゴリ ズム が 使用 きれ る の で , 再帰 的 アル ゴリ ズム と 言え ます 。 

リス ト 1I.6.3 に プロ グラ ム 例 を 示し ます . この リス ト で は , 2 つの 引数 は 第 1 番 
目 の ほ う が 第 2 番目 より 等 し いか 大 きく な いと 正しく 動作 し ませ ん . 原理 の み を 
示す た め に 。 引 数 の チェ ッ ク は 省略 し て あり ます . 

a を b(a>b) で 割る こと は , a か ら b を , 差 が b よ り 小 さく な る まで 減じ る こと を 意 
味 し ます 。 し た が っ て ,。 次 の よう に も 表 さ れ ま す . 


aa=ーD な ら ば GOD=a 
aa>D な ら ば GOCOD は a-ーb と b の GOCOD 
b>a な ら ば GOCD は a と b-a の GOCD 


上 の 表現 で 。a= ニ b と は , a を b で 割っ て 余り が ゼロ を 表し ます . 
この 表現 に よる プロ グラ ム 例 を リス ト |I.6.4 に 示し ます . 
3 GCD の プロ グラ ム ( その 1) 








1.5 再帰 
@ リ スト 1.6.4 GCD の プロ グラ ム ( そ の 2) 





1: DECLARE FUNCTION GCD! (a!, b!) 

2: "6cD SamDle _ 

3: _ 

4・ X = 1350: y 二 405 | 0 
5・ _PRINT 7 
6・ 「 
7: _ 、_ 。 | 

8: FUNCTION GCD (a, b) 

9・ 
10 : Fa =b Th 2 
まま す : _ GCD = : EXIT FUNCTION 
トト ELSETF a > 1 THEN 

13: GCD = GCD(a _ー ト 。 的 
14: KRLSE 
45, 0 ょ * = 6CD(a, b - TL 
16 : END TE 
7: 

は を 層 08208 


。 1.5.0 クイ ッ ク ソ ー ト 


ソー ト (sort) と は , 整列 と も 呼ば れ , デー タ を 大 き さ の 順に 並べ る こと で す . ク 
イッ クソ ー ト (Quick sort) と は 文字 どおり 高速 な ソー ト の 意味 で 。 ラ ンダ ム な 順 
に 並べ られ た デー タ を ソー ト す る 場合 に 高速 で 便利 な 方 法 で す . 

クイ ッ ク ソ ー ト は , ア ル ゴ リ ズム が 再帰 で ある こと に よっ て も 知ら れ て いま す . 
その 基本 的 な 考え 方 は 次 の と お り で す . 


ソー ト す べき n 個 の デー タ の 中 の ある 値 を 取り 出す . その 値 を M と する . M よ 
り 小 さ な 値 を M の 左側 に , 大 き な 値 を M の 右側 に 並べ る . この 段階 で 。M の 左 
側 に は , M よ り 小 さ な ラ ンダ ム に 並ん だ デー タ 列 。 右側 に は M よ り 大 き な ラ ン 
ダム に 並ん だ デー タ 列 が 得 ら ちら れ る. そこ で ,。 その お の お の の 右側 と 左側 の 区 間 
に つい て , 同じ 考え で 区 間 を 分 割 する . 区 間 の 幅 が 1 に な っ た ら 終了 する ( 図 1.6.1). 


これ を , も う 少 し 具体 的 に 記す と , 次 の よう に な り ま す (J. 上 . ベン トリ ー,。 コ 
ラム 10 に よる ). 

デー タ は 配列 x( 7 )。x(7 十 1)。…。x(u 一 1)。 x(u) に 入っ て いる と し ます (第 1 
回 目 は 7 = ニ 1,u= ニ n で す )。 


@ 図 1.6.1 クイ ッ ク ソ ー ト の 考え 方 


| 
M 


し | M に より 分 割 さ れ た 
wlgl…lW]| lsl 誠 多 
人 


ペーーーーーーー ヘ ーーーーー ご | 
M よ り 小 さい M M よ り 大 きい 


も し 。 7/ ニ u な ら ば 。 1 個 し か デー タ が な い の で 。 "ソート 済 み ” と 考え ます . 
し た が っ て , 7 ぐ く u の 場合 に の み , 以下 の 手順 (1) て (4) が 実行 きれ ます (すなわち , 
7 >u が 再帰 的 呼び 出し の 停止 条件 で す ). 

(1) x(/)。…,。 x(u) の 中 の 任意 の 値 を M と し ます . そし て , M と x(/ ) を 交換 

し ます 、。 そし て 。 Kー! と し ます 。 
(2) 7 十 1 か ら u の 間 , 以下 の 処理 を 実行 し ます . 
x(1) こく M で ある な ら ば , k を イン クリ メン ト し , x⑪⑬ と x(k) を 交換 し ます . す 
な わ ち 。k> 7/ な ら ば 。 添字 k を 持っ た デー タ x(k) は 。M よ り 小 さい こと に 
が りり ます. 
(3) 左端 に お か れ て いた 値 M と x(k) を 交換 し ます . これ に より , 添字 が kー 1 
以下 の 配列 の デー タ は M よ り 小 さい も の ば か り に な っ て いま す . 添字 が k 十 
1 以上 の 配列 の デー タ は ,。M に 等 し いか 大 き な も の に な っ て いま す ((2) 
が 実行 され な い 場 合 . すなわち k= / の まま の 場合 は 交換 する 必要 は あり ま 
せん が ,。 その よう な こと は めった に な い の で 。 交換 し て も 時 間 の 無駄 に は 
を なる な いで し ょ 少 

(4) 左 の 区 間 7 -k 一 1 に つい て , 同様 な 処理 を 実行 し ます . 
右 の 区 間 k 十 1 -u に つい て 同様 な 処理 を 実行 し ます . 


数 値 例 で 確か め て み ま し ょ う . 
は じ め の デー タ が 。 x(1) xx (10) 中 に , 
75 90 97 33 0 54 45 42 70 34 


で 与え られ た と し ます . (1 ) で M=45 と する と , 75 と 交換 し , k= 1 と な り ま す . 
76 


1.5 再帰 


( 2 ) を 実行 する と , 左端 の 値 5 は その まま で , その 右側 に 45 よ り 小 さ な 値 が 並 
ます 。 
すなわち , 


45 33 0 42 34 54 75 90 70 37 


ここ CCCkー5 と な っ そ 【 い ます . 
( 3 ) を 実行 する と , 


34 33 0 4Z 45 54 75 90 70 97 
ae PE 
左 の 区 間 右 の 区 間 


45 よ り 小 さ な デ ー タ は 左 に , 大 きい か 等 し い デ ー タ は 右 の 区 間 に 分 か れ て いま 
す . そこ で ,。 左 の 区 間 に つ いて 同様 の 処理 を 行い , 右 の 区 間 に つ いて も 同様 な 処 
理 を 行い ます . 

プロ グラ ム 例 を リス ト 1I.6.5 に 示し ます . (1 ) の 任意 の 値 を 選ぶ 方 法 と し て は , 
].L. ベン トリ ー の プロ グラ ム に な ら っ て , 乱数 で , 区 間 内 の 任意 の 添字 を 選び , 
その 配列 の 値 を 用 いて いま す . 

終 似 デー タ の 発生 。、 デ ー タ の プリ ント へ の プロ シー ジャ も 含ま れ て いま す の で 。 
以下 に 簡単 に 説明 し て お きま す . 


SUB GenerateData(X( ),n) 
配列 x( ) に n 個 の 乱数 を 書き 込み ます . 乱数 は 0 999 の 整数 値 を と り ま す . 
SUB PrintData(x( ),n) 
配列 x( ) の 内 容 を スク リー ン 上 に 1 デー タ 8 カラ ム で 表示 し ます . ス クリ ー 
ン 1 行 に 10 個 の デー タ が 出力 され ます .。 な お , デー タ は 整数 値 を 仮定 し ま 
一 


@ リ スト 1.6.5 クイ ッ ク ソ ー ト (再帰 的 呼び 出し ) 


mm ビビ ロビ ビビ ロビ 
| 「 半 30RR ERE. SE. 反 .5 し RE. ま 8 | 


18・: 


h う +ー 
つく や 


2 ま 1: 


る 2 
どれ 
24 : 
2 の 2 


本 生れ 


27・ 
28: 
29・ 
30: 
31 : 
さく 
93 
34・ 


お: 


36 : 
37 : 
38・ 
39・ 
40: 
41: 
42・ 
43・ 
44・ 
45 : 
46 : 
47: 


・ DECLARE SUB Qsort2 (X!(), 1ower! , uUDDer! ) 


DECLARE SUB Qsort1 (X!(), 1!, u!) 
DECLARE SUB GenerateData (X!(),。 ni) 
DECLARE SUB PrintData (X!(), n!) 


< CLEAR 。 。 5000 
・ CONSTn = 100 
・ DI X(n) 


CALL GenerateData(X(), n) 
CALL PrintData(X(), n) 
PRTINT TINME$ 

CALL Qsort2(X(), 1, n) 
PRINT TIME$ 

CALL PrintData(X(), n) 


・ END 
に 


・ SUB GenerateData (X(), n) 


FOR i = 1 TOn 
X(1) = INT(1000 * RND) 
FT 1 


SUB PrintData (X(), n) 
PRINT 
FOR 1 = 1 TOn 
PRINT USING ”  】 電 春 失 お ・ X(1):| 
NEXT 1 
END SUB 


SUB Qsort1 (X()。 1 u) BY Recursive Call 
TEF 1 < u THEN 
SWAP X(1), X(1 + INT(RND * (u+ 1 - 1)) ) 
k = 1 
MM = X(1 ) 
FOR 1 = 1 + 1 TOu 
TF x(i) < M THEN 


K = K+1 
SWAP x(k) , x(1) 
END IF 


NEXT i 

SWAP X(1) , x(k) 

CALL Qsortl(x(), 1, k - 1) 

CALL Qsort1(x(), k + 1,。 u) 
END IF 「 


END SUB 


1.6 再帰 


1.6.3 再帰 性 の 除去 


ング 


ッ の 2 


QB に お ける プロ シー ジャ の 呼び 出し は , 呼び 出し ご と に 引数 や ロー カル 変数 の 
領域 を 確保 する た め に , 呼び 出し に 時 間 が か か り ま す ( こ れ は , Pascal や C で も 同 
様 で , 以下 の 議論 は 同じ よう に あて は まり ます ). ク イッ クソ ー ト に お いて , デー 
タ 数 が 分 割 の 結果 小さ く な っ て も , 区 間 の 大 きき 1 (この 場合 何 も ち し な い ) に お い 
て さえ , プロ シー ジャ の 呼び 出し が 行わ れ , か えっ て 能率 が 悪く な り ま す . クイ ッ 
クソ ー ト で は , 区 間 の 大 き さ が ある 程度 以下 に な っ た ら , ほか の ソー ト に 切り 換 
える な どの 方 法 が と られ ます . 

再帰 的 な アル ゴリ ズム は 。 記述 に は 適し て いま す が 。 プロ グラ ミン グ 上 は ,。 非 
再帰 的 呼び 出し , すなわち , 1 回 だ け の 呼び 出し で 実行 で きる よう に プロ グラ ム 
を 書き 換え た ほう が よい 場合 が 多い で す 。 そこ で , 再帰 的 アル ゴリ ズム を 非 再帰 
に 書き 改め る 例 を 2, 3 示し ます . 

再帰 的 呼び 出し 時 に は , 呼び 出し 時 の ロー カル 変数 は メモ リ 上 (通常 , ス タッ ク 
メモ リ 上 ) に 保存 され て お り , 呼び 出し か ら 戻 っ た 時 点 で その 値 を 使用 する こと が 
可能 で す 。 再帰 的 呼び 出し の 代わ り に 。 ル ー プ を 利用 し て 。 自分 自身 を 再 実 行 す 
る た め に は , ロー カル な 変数 の うち あと で 使用 する も の を 保存 し て お か な く て は 
な り ま せん 。 ク イッ クソ ー ト の プロ グラ ム で その よう す を 調べ て み ま す 。 

リス ト 1I.6.5 の プロ グラ ム の 主要 部 は 次 の よう に 表 さ れ ま す . 


SUB QSORT (x( ),1u) 
TE' 1<u THER 
1 k を 分 割 点 と する よう に し て 左 と 右 の 2 つの 部 分 に わけ る 
2 CALL QSORT (x( ),1,k 一 1) 
3 CALL QSORT (x( ),k 二 1,u) 
END TE 
END SUB 


2 で 自分 自身 を 呼び 出す こと は 。 あ ら た め て 2 つの 引数 7 と u を 。 7 と kk 1 に 
置き 換え て ,。 プロ シー ジャ の 本 体 を 実行 する こと に 相当 し ます 。, 再帰 的 呼び 出し 
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で は , QSORT(x( ), 7 , k 一 1) の 引数 7 は 呼び 出し ご と に 値 が 更新 され て いま す . 
その 点 に 注意 し て , 2 の CALL QSORT( ) を 除く に は , 2 で ,。 7 を 新しい / に , 
u を 新しい u に し て ,QSORT を 呼び 出す 代わ り に , IF の 前 に GOTO で 分 岐 す る こと 
に 相当 し ます . 再帰 的 呼び 出し で は , 7 と u の 値 は 呼び 出し ご と に 保存 され て いる 
必要 が ある の で , これ を 配列 に し て 保存 し ます . 

3 の CALL は , 2 の CALL が これ 以上 再帰 的 呼び 出し を し な く な っ て は じ め て 実 
行き され る の で , IF 7 <u THEN-END IF ブロ ッ ク の あと に 出 ま す . そし て , や 
は り , k 十 1 と u を 新しい 値 に 書き 換え て , IF の 前 に GOTO で 分 岐 し ます . 

分 割 点 k は , 新しい u ま た は 7 を 求め る の に 必要 と され る の で , 保存 する 必要 が 
あり ます . / と u,。 それ に k を 保存 する た め に 配列 7 ( ),u( ), k( ) を 用 い , 呼び 出 
し の 深 さ に 相当 する ポイ ンタ を 変数 sp で 表す と , 次 の よう に な り ま す . 


SUB QSORT (X( ),1o0Wer,uDDeT) 
SD=]1 : 1(SD)=1OWer:u(8D)=UDDGer 


aga1T: 
TR 1(8D) く u(Sp) THEBN 
1' : 分 割 点 k を 求め る . m の 左側 は x(k) よ り 小 さく , m の 右側 は x(k) 
に 等 し いか 大 きい 2 つの 列 に 分 割 さ れる 
k(SD)k  'k を セー ブ す る 
2': SD=SD 十 ] : 1(8SD)=1(8D-1) : u(8p)=k-1 
goOtO aga1ln 
BND TE 
TE SpD く >]1 THEN 
3 : SD=SD-1 : 1(SD)=k(Sp) 二 1 
gOto aga1ln 
END TE 
BBND SUB 


上 の プロ グラ ム を よく 見 る と , / (sp) は , 1 "と 2 ' の ルー プ 中 で は 値 が 変わ ら な 
いこ と が わか り ま す . し た が っ て , 7 は 保存 する 必要 は あり ませ ん . また , IFーTHEN 
の 部 分 は 。 goto again を 含む の で ルー プ に 書き 直す こと が で きま す . 実行 条件 が 
は じ め に 調べ られ る こと か ら ,DO WHILE ルー プ を 用 いて 次 の よう に 表 さ れ ま す . 


oO 
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SUB QSORT (X( ),10Wer,uDDeT ) 
SD=] : =]Ower : u(SD)=UDDer 
aga1n: 
DO WHILE  ] く u(8D) 
1 :k を 得る 
K(SD)=k 'SaVe Kk 
2" : SD=SD 十 1 : U(SD)=k-1 
LOOP 
TEF SpD く >]1 THEN 
3 : SD=SD-1 : 1=k(Sp) 十 1 
gOto agaln 
BND ITF 
BND SUB 


さら に goto again は , sp が 1 の 値 を と る まで 実行 きれ る こと か ら , DO/LOOP 
UNTIL 型 の ルー プ に 置き 換え られ ます . コー ディ ング 例 を リス ト 1.6.6 に 示し ま 
す 。 

上 の 例 で 引数 7 を 保存 する 必要 が な か っ た の は , 次 の 理由 に より ます . 
連続 し た 2 つの 再帰 的 呼び 出し , 


2 CALL QSORT(x( )。 / 、 k 一 1) 
3 CALL QSORT(x( )。 k 十 1。u) 


の うち ,。 2 の CALL で は , は じ め の 引数 7 は 戻っ て か ら 再 使用 され ませ ん 。 他方, 
2 番目 の 引数 k 一 1 は , 非 再帰 的 な プロ グラ ム で は , 引数 nu に 代入 され る こと に な る 
た め 。 3 で 正しい u の 値 を 保持 する た め に は ,。 保存 し な く て は な り ま せん ., k の 値 
も , 2 の 実行 中 変化 する の で 保存 し て お く < 必要 が あり ます . 

一 般 に は 。 再 帰 的 呼び 出し の 直後 に END SUB や END FUNCTION が くる も の 
は , ロー カル 変数 や 引数 の 値 を 保持 し な く て も よい の で , それ ら の 保存 を 考え な 
く て も よい 分 , 非 再帰 的 アル ゴリ ズム へ の 変更 は 簡単 に な り ま す . 


5 スト 15.6 MM し ea 


xO。」 1owerr mer) ・ 


き 1.6.4 [ 付 ] ソ ー ト ブ プログラム 


本 章 で クイ ッ ク ソ ー ト の プロ グラ ム が で て きた の で 。 非 再帰 的 アル ゴリ ズム で 
表 さ れる いく つか の ソー トブ プログ ラム を 紹介 し て お きま す . な お 出典 は 。 ヴィ ル 
ト の 「 ア ル ゴ リ ズム 十 デ ー タ 構造 = プロ グラ ム | (日 本 コン ピュ ー タ 協会 ) に より 


すま 。 





レン 





バブ ルソー ト と は , ソー ト す る よう す を 図示 する と, あたかも あわ (bubble) が 
底 か ら 上 に 上 が っ て ゆく よう に 見 える の で 名 づけ られ た ソー ト 法 で す . 理解 し や 
すい で す が , 実行 速度 は 遅い の で , デー タ 数 が 少な い 場 合 に し か 用 いら れ ま せん . 

配列 x( ) に 格納 され た n 個 の デー タ を ソー ト す る と し ます . 次 の よう に し ます . 

は じ め に n 個 の デー タ す べ て に つい て 隣 同士 を 比較 し, 添字 の 小さ きい ほう が 値 が 


02 
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きけ れ ば 交換 し ます . これ を , 添字 が n か ら 2 まで 順に 実行 すれ ば , 添字 1 に 
も 小さ い 値 が 入り ます . プロ グラ ム で 示せ ば ぱ ば , 


FOR Jan TO 2 STEP-1 
TE x(j-1) > x(j) THEN SWAP xt(j-1), x(j 
NEXT JJ 


x (1) が 最小 値 で ある こと が わか っ た の で , 次 は , n か ら 3 まで 同様 の こと を 実行 し 
ます . する と , x(2) に , 次 に 小さ い 値 が 入り ます . この よう に し て n ま で 操作 すれ 
ば , 昇順 に 並ん だ デー タ が 得 ら れ ま す . 
実際 の プロ グラ ム を 。 リ スト |.6.7 に 示し ます 。 
リス ト 1.6.7 バブ ルソー ト 








222 


kSOC 
NON 









イン サー ショ ン (insertion 三 挿入) ソー ト は, カード を 番号 順に 並べ た り 。 レポ ー 
ト 類 を 順に 並べ る 方 法 に 由来 する ソー ト の 方 法 で す . た と えば 。6 枚 の カー ド が, 


l6] 31 141 | 9| 


の 順に 得 ら れ た と し ます . これ を 並べ 替え る に は (人 間 は , 直観 的 に 処理 する 部 分 
が す が 。 そ れ は 考え な いと し て ),。 次 の よう な や り 方 を し ます . 6 は 8 より 
小さ い の で 。 6 を 8 の 左側 に 置き ます . これ に より , 


l6] 8] 31 1 HH9 


な り ま す . 次 に 3 を 調べ ます . 3 は 8 と 6 より も 小さ い の で ,。 一 番 左 へ 置き ま 
まま 宅 札 村 よっ て 。 


3] [6] (81 HH 


と な り ま す 。, 次 に , 4 を 3 と 6 の 間 に 入 れ ま す . 


3] [4] [6] [1 | [9| 


次 に 1 を 3 の 左 に 置き ます . 


3] | lel [8] 8 


最後 に 9 は 。 その 左 の どれ より も 大 きい の で この まま で す , 以上 で 並べ 替え が 終 
2 りり 表し 。 


左 か ら mー-ー 1 番目 まで は 。 ソ ー ト 済み で ある と し て 。 m 番 目 の デ ー タ を 。 その 
左 の 数 字 列 の 間 の 適当 な 位置 に 挿入 する . 挿入 に よっ て 。 その 間 の デー タ を 1 
つ ず つ 移 動き させ る 


と な り ま す . 

実際 の プロ グラ ム で は 。 大小 比較 と デー タ の 移動 を 変 互 に 行う と いう 如 妙 な 方 
法 を と っ て いま す . また , 一 番 左 の 端 ま で きた ら , それ より 先 に は 挿入 する 位置 
が な い の で 。 停止 きせ る た め に 。 添字 ゼロ の 変数 を 番 兵 と し て 使用 し て いま す . 
これ が な いと 比較 が も う 少 し 面倒 に な り ま す . 

プロ グラ ム 例 を リス ト |.6.8 に 示し ます . 





この 方 法 は 。 バブ ルソー ト と 似 た と ころ が あり ます が 。 デー タ の 交換 を 毎回 し 
な い 分 だ け 高 速 で す . 

考え 方 は 単純 で ,。n 個 の デー タ が あっ た と する と , は じ め に n 個 の 中 の 最小 値 を 
求め 。 それ を x(1) に 置き ます . 次 に , 2 番目 か ら n 番 号 の n 個 の デー タ の 最小 値 を 
x(2) に 置き ます . 以下 。 こ れ を 繰り 返す の み で す . 

プロ グラ ム 例 を リス ト 1I.6.9 に 示し ます . 
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@ リ スト 1.5.8 イン サー ショ ン ソ ー ト 


48: SUB InsertionSort (X(), n) 


49: FOR 1 2 On 

50: テ 4】 

人 和 1 = t 

ら 52: まま 

93 : DO WHILEt < X(]) 
94 : X(] + 1) = X(1) 
5O< | 】 まま 1 ・ 1 

56・ LOOP 

57: X(] + 1) = 

58 : NEXT 1 

59: END SUB 

60・ 


リス ト 1.5.9 セレ クシ ョ ン ソ ー ト 


69: SUB SelectionSort (x(), n) 
70・ FOR 1 = 1 TOn - 1 

あの 1 1 
か X(1 ) 
73・ ] = 
7 人 < TEF X 
' む も ( 

76・ 

7 か END IF 
78: NEXT } 
79・ X{(k) = X(1) 
80: X(i) = t 

81 : NEXT 

82: END SUB 

83・ 


旧 


TO n 
{t THEN 


(}) 


J 


上 上 = 


e+ ーー トー 
pe *ー 人 | 
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1.7.1 分 木 


2 分 木 と は , 1.5 で 取り 上 げた リス ト の 一 種 で 。 お の お の の 節 が 2 方 向 の リン ク 
を 持つ も の で す . 左右 の リン ク が , 指す も の を 持た な い 節 の こと を 葉 と いい ます . 
その 節 を 指す ナリ ンク が 存在 し な いも の を 根 と いい ます . 図 で 表す と 図 |.7.1 の よう 
な も の で , 〇 印 が 節 で す . 節 か ら 延 びる 左右 の 手 が リ ンク を 表し ます . 通常 は 上 
か ら 下 ヘリ ンク する の で 。 矢印 は つけ ませ ん . リン ク 元 の 節 を 親 。 リ ンク 先 の 節 
を 子 と 呼び ます . この 図 を 木 (tree) と いう の は , 天地 を 逆 に する と 植物 の 木 の 形 に 
似 て いる か ら で し ょ う . 

@ 図 1.7.1 2 分 木 





タグ 


* の 2 
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1.7 探索 


1.7.e 部 分 木 一 再帰 的 構造 


図 !.7.1 で 根 の 左 に リン ク さ れ た 節 か ら 先 の 人 節 は 。 ま た 木 を な し て いま す . し た 
が っ て 2 分 木 は 根 の 左右 に 2 分 木 を リン ク し た も の と 言え ます . 


@ 剛 1./.2 
根 
2 分 木 2 分 木 


根 の 先 に リン ク さ れ た 2 分 木 を , 部 分 木 と 呼び ます . 部 分 木 は その 根 の 左右 
に また 部 分 木 を 持ち と ます, すなわち , 2 分 木 は 再帰 的 構造 を 持ち ます . ここ で 2 
分 木 の 定 義 を 拡張 し て , 節 を 1 個 も 持た な いも の も , 節 が 1 個 の み ,。 すなわち 根 
の み の も の も , 2 分 木 と 呼ぶ こと に し ます .。 これ は 2 分 木 の 再 帰 構造 を 記述 する 


た め の 形 式 的 な 拡張 で す . 


多 


トノ 


1.7.3 分 木の実 現 


ダグ 





以下 の 説明 の た め に 。 2 分 木 を 実現 する プロ グラ ム を 示し ます . QB で は ポイ ン 
タ が 使用 で き な い の で 。 節 の 配列 を 用 いる こと に し ます . 


TYPFE node 
Inf AS STRTING *|0 
left AS TINTEGER 
right AS INTEGER 
BND TYPE 


@ 図 1 7 3 デー タ 型 node の 構造 


left Inf right 


デー タ 型 node と し て , 要素 Inf と 左右 の リン ク を 持つ 型 を 定義 し ます ( 図 |.7.3). 
最大 の 木 の 大 き さ を TreeSize と し て 次 の よう に 節 を 確保 し ます . 


CONST TreeSizge=100 
DIM (TreeSizge) AS node 


・ 


1.5.2 の 考え 方 に 基づき 。 は じ め に すべ て の 節 を 自由 リス ト と し て 構成 し ます . 
x(0) に は right と left の 2 つの リン ク が ある の で , right を 自由 リス ト の ヘッ ド を 指 
す も の と し ます . する と , 自由 リス ト は 次 の よう に な り ま す ( 図 | .7.4 参 照 ). 
@ 図 1.7.4 初期 化 さ れ た 自由 リス ト 


TreeSize-] TreeSize 


FOR i=1 TO TreeSize 
(1-1). right=i 

NEXT 

Xx(Treeo1ige)=N11 


Nil は 。 リス ト |.5.1 で 宣言 され た 定数 と 同じ も の と し ます . 新しく デー タ を 挿 
入 す る 場合 に は , 自由 リス ト か ら ひ と つ 取 り 出 し ます . また , 木 か ら デー タ を 削 
除 し た 場合 に は , 削除 され た 節 を 目 由 リス ト に 加え ます . これ ら の 処理 は , 1.5. 
2 に 同じ で す . 





2 分 木 の 節 に 格納 され る 情報 に つい て , 今 ま で の と ころ 何 も 定 め て あり ませ ん 
で し た が , ここ で 次 の よう に 大 小関 係 を 定め ゆめ ます. すなわち 。, 
左 の 子 は 親 よ り 小 さい 
右 の 子 は 親 に 等 し いか 大 きい 


GO 


1.7 探索 


この 約束 で 木 を 構成 し て ゆく と , 情報 を 検索 する 場合 , 高速 に 捜す こと が 可能 
に な り ぼ ます . 

2 分 本 に お いて は , 情報 の 挿入 は 葉 の 先 に な され ます . 挿入 すべ き 情 報 と 節 の 
大 小 を 比較 し , 情報 が 小さ けれ ば 左 の 子 へ , さも な くば 右 の 子 へ 挿入 し ます . 左 
また は 右 の 子 が 存在 し な い 場 合 に は , その 情報 を 左 ま た は 右 の 子 と し ます . 

た と え を えば, 図 1.7.5 で は 。5 個 の 情報 "Modula 2 "。 “Pascal"。 “CMBASIC",。 
“QuickBASIC" が 。 この 順に 挿入 され て で きた 木 に , 情報 “Ada” を 挿入 し て い 
ます ., 2 分 木 で は , 一 番 始め に 挿入 され た 情報 が 根 に 置か ん ます . 情報 “Ada” は 
まず "Modula 2 "と 比べ られ ます . 小さ い の で , 左 の 子 を 調べ ます . 左 の 子 は Nil 
で な く “C な の で , 今度 は “C" と 比べ ます 。“C” より 小さ い の で “C” を 含む 
節 の 左 の 子 を 調べ ます . 左 の 子 は 存在 し な い , すなわち 左 リ ンク が Nil な の で , 左 
リン ク に “Ada” を 接続 し ます . 

@ 図 1.7.5 木 へ の 挿入 一 一 "Ada" を 追加 する 


OuickBASIC 





この 部 分 を プロ グラ ム で 書く と 次 の よう に な り ま す .p% が 調べ る リン ク を 表し 
ます 。 


SUB jnsert(S や ,D%) 
TF D%=Nil THEiN 
p%=GetNode 目 由 リス ト か ら 領 域 を 確保 する 
X(D%).1inf=Sb : X(D%).1eft=Ni] : X(D%).right=Nil 
ELSE 左 ま た は 右 の 子 が 存在 する 
TEF' sb く < x(p%).Inf THER 
OGALL insert(s$,x(p%).1eft) "小さ けれ ば 左 の 子 へ 
ELSE 」 


OALL insert(s$,x(Dp%).right) "さも な くば 右 の 子 へ 
BND TEF 
BND TE 
NND SUB 


飛び 込み 時 の p% の 値 は , 左 ま た は 右 の 子 へ の リン ク 先 の 値 で す 。 もし, この プ 
ロ シ ー ジ ャ を メイ ン 部 か ら 呼 ぶ 場 合 に は 。 p% の 値 は , 根 を 指し て いな く て は な り 
ませ ん 。p% が Nil で ある と 子 が な い の で ,。 空き リス ト か ら 利 用 可能 な 節 の 番号 を 
確保 し , それ を p% と し ます 。 そし て , そ の 人 委 に デー タ s$ を 書き 込み 。 そ の 左右 の 
子 は 存在 し な い の で Nil と し ます . p% へ 目 由 リス ト か ら の 利用 可能 な 節 の 番号 を 
書き 込ん だ 時 点 で 。 QB の プロ シー ジャ の 引数 が アド レス 渡し で ある こと に より , 
親 か ら 子 へ の リン ク も 構成 され ます . 

挿入 は , 単に 木 の 一 番 下 の 葉 ま た は , 左 ま た は 右 の 子 し か 持た な い 節 に 付加 す 
る の で 話 は 簡単 で す 。 し か し 次 に 述べ る 削除 は , 木 の 回 転 と 呼ば れる 操作 が 入る 
の で 少々 面倒 で す . 






削除 の 方 法 を 考察 する た め に 図 |.7.6(a) の 木 か ら の 削除 を 調べ て み ま す . 節 
"Bode"。 "Newton", Pauli"。 "Plank" など は 葉 に 相当 し ます . これ ら の 節 は , 
左右 の リン ク が Nil で あり , 除い て も 差し 支え を ありま せん. “Euclid" や "Mersene" 
の よう に 右 ま た は 左 の 子 の な い 節 を 除い た 場合 に は 左 ま た は 右 の 子 を 持ち 上 げ ま 
す . “Euclid” を 削除 する 場合 , “Goldstein">“Euclid">“Bode" よ り , “Goldstein"> 
“Bode” の 関係 は 維持 され る の で , 木 の 性 質 は こわ され ませ ん ( 図 |.7.6(b)). 

図 !.7.6(a) の 木 で , “Ricci" を 除く 場合 に は , 回 転 と 呼ば れる 操作 が 必要 と な り 
ます . “Ricci” を 除い た あと に “Peano",。 “Walsh' の いずれ を 持ち 上 げ て も , 2 
分 木 を 構成 で きま せん 。 た と えば ,。 “Peano" を "Ricci の あと に 置く と , “Plank“" 
は “Peano" の 右 に こ な く て は な り ま せん が , そこ に は すでに “Walsh" が あり ま 

この よう な 場合 に は , 次 の よう に , 


削除 する 節 の 左右 の 子 が 存在 する 場合 に は , 左 の 部 分 木 の 中 の 最大 の 節 を , 
削除 され た 節 に 置き 換え る 


?0 


1.7 探索 
@ 剛 1./.6 


CEueid つ (Mesene wash 
(Cewo) て Pa つて Pk つて Te つて we ) 


(a) 

(Goese の 
Ce の 。 
(ee つ 


Bode 


(b) “Euclid” を 削除 する 


すう Sp みて 


(c) “Ricci" を 削除 す る , 回 転 が 生 ずる 


と し ます . そう すれ ば , 新しく 置き 換え られ た 節 の 左 部 分 木 の す べ て の 節 は 小さき 
ぃ の で 2 分 木 の 性 質 は 維持 され ます . 

左 部 分 木 の 最 大 の 節 は , 各 節 の リン ク を 右 に 順に た どっ て いっ て , 右 リ ンク が 
は じ め て Nil と な っ た 節 と な り ま す . この 例 で は , “Plank” が 最大 の 節 な の で , そ 
れ を “Ricct の あと に 入れ ます . “Peano" の 下 に ある 節 が 回 転 す る か の よう に 上 
へ 持ち 上 が る の で , この 操作 を 回 転 と 言い ます ( 図 |.7.6(c)). 

まとめ る と 次 の よう に な り ま す . 

1 . 削除 され る 節 を 見 出す 

2 . 右 の 子 が な けれ ば , 左 の 子 を 持ち 上 げ る 

3 . 左 の 子 が な けれ ば , 右 の 子 を 持ち 上 げ る 

4 . 左右 の 子 が あれ ば , 左 の 部 分 子 の 最大 の 節 を 捜し 回 転 する 


これ ブロ グ み みす る と 区 の よう に な り ま す 。 


SUB delete(Sb,D%) 
TEF D% く >Nil THEBTN 
ITF s$ く X(D%).Inf THEBN 
CALTL delete(s$,x(p%).1eft) " 左 の 子 を 捜す 
LSETEF Ss ゆ や >x(D%).Inf THETN 
OALTL delete(s$,x(p%).right) " 右 の 子 を 捜す 
LSE 削除 する 節 が 見 出さ れ た 
deletedP%=p% 
TRXx(D%).right=Nil THEN 
D%=X(D%).left ' 友 の 子 を 持ち 上 げ る 
CAL 廿 AddToEreeList(deletedP% め ) 
BLSETE Xx(D%).1eft=Nil THEN 
D%=x(D%).Tight 
CAL 廿 AddToFreeList(deletedP% め ) 
BLSE 
_ CALL turn(D%,x(D%).1eft) "回 転 
BBND TE 


1.7 探索 





BND TE 
BND TF 
BND SUB 


SUB turn(D%,u% 
TF x(u%).right く >Nil THEN 


OALL turn(Dp%,x(u%).right) " 右 の 子 を 順に 捜す 


LSE 最大 の 節 が 見 つか っ た 
x(D%).Tnf=x(u%).Tnf 最大 の 節 の 内 容 を 書き 込む 
deletedU%=u% 最大 の 節 が 捨て られ る 
u%=x(u%).1eft 左 の 子 を 持ち 上 げ る 
CALL AddToFreeList(deletedU% 

BND TEF' 

NND SUB 


入 の と き と 同 様 に 引数 が アド レス 渡し な の で 。 プロシージャ 内 の 引数 の 書き 
え が リ ンク の 接続 の 変更 を 実現 し て いま す . この プロ シー ジャ を メイ ン 部 か ら 
呼ぶ 場合 に は 。 引 数 p% は 根 を 指し て いな く て は な り ま せん . 





デー タ は 木 の 節 に 格納 され て いま す の で 。 節 の 内 容 を 呼び 出す こと が 必要 に な 
り ま す ., 節 自 体 は , 配列 と し て 実現 され て いま す が , 相互 関係 は 左右 の リン ク で 
表 さ れ ま す .。 リン ク を 順に た どっ て 節 の 内 容 を 調べ る こと に な り ま す 。 節 を 順に 
た どる こと を トラ バー サル (traversal) と 呼び ます . 

トラ バー サル の 方 法 を 考え る 場合 , 木 の 再帰 構造 が 重要 に な り ま す . 1.7.2 で 述 
べた よう に 。 木 は 根 の 下 の 左 右 の 部 分 木 か ら な り ま す . し た が っ て , 根 と 左 お よ 
び 右 の 部 分 木 を どの よう に た どる か に より ,。 アル ゴリ ズム は 変わ っ て きま す ., 基 
本 的 に は 次 の 3 つの トラ バー サル の 方 法 が 知ら れん て いま す . 


@ 先 順 ト ラバ ー サ ル [DreOrder traVver8 引 
1 . 木 が 空 な ら ば 何 も し な い 
2. さも な くば 
根 を 訪れ る 
左 部 分 木 を 訪れ る 
右 部 分 木 を 訪れ る 
人 対称 トラ バー サル [Symmetrio traver8〕 
1 . 木 が 空 な ら ば 何 も し な い 
2. さも な くば 
左 の 部 分 木 を 訪れ る 
根 を 訪れ る 
右 の 部 分 木 を 訪れ る 
@ 後 順 ト ラバ ー サ ル [DOsStOrder traver8J 
1 . 木 が 空 な ら ば 何 も し な い 
2. さも な くば 
左 の 部 分 木 を 訪れ る 
右 の 部 分 木 を 訪れ る 
根 を 訪れ る 
上 の 3 つの トラ バー サル は , 根 を 訪れ る 順 が 最初 か 中 間 か 最後 か が 異な り ま す . 
また 。 この アル ゴリ ズム 自体 が 再帰 に な っ て いま す . 1. が 再帰 的 呼び 出し の 終了 
条件 に な り ま す . 
これ ら の 3 つの トラ バー サル を 比較 する た め に , 図 1.7.7 を 訪れ て み ま す 。 2 分 


@ 図 1././ 
E) 


1 .7 探索 
木 の 節 の 情報 は アル ファ ベッ ト の 大 小 を 満た す よ うに 並ん で いま す . 


先 順 トラ バー サル BEBBACDTGEHJKTL 
対称 トラ バー サル ABCDEEFGHTJK 葉 
後 順 ト ラバ ー サ ル ADCBFHGTLKKJTE 


この 結果 より , 左 の 部 分 木 の 情報 は 根 よ り も 小さ く , 右 部 分 木 の そ れ は 根 よ り 
大 きい と する 図 |.7.7 の よう な 木 で は , 対称 トラ バー サル に よっ て 情報 を 昇順 で 取 
り 出 すこ と が わか り ます. 

対称 トラ バー サル に より , 情報 を 読み 出し プリ ント する プロ シー ジャ は 次 の よ 
クウ 念 り ます 。 


SUB PrintTree(D%) 


TF D% く >Nil THEN 木 が 空 で な けれ ば 
CALL PrintTree(x(D%).1eft) 堪 の 部 分 木 を 訪れ る 
PRINT x(D%).Tnf 根 を 訪れ る 
CALL PrintTree(x(p%).right) ' 右 の 部 分 木 を 訪れ る 

BND 1F 
END SUB 


2 分 木 は , 代数 式 の 構造 を 記述 する の に も よく 使用 きれ ます . た と えば , 図 |.7.8 
は 算術 式 


人 
(A*B 十 〇 C)*(DーA※*E)/((A 圭 )* 選 十 E) 
@ 図 1./.6 


を 表現 し て いま す . この 2 分 木 を 後 順 トラ バー サル で 訪れ る と 次 の よう に な り ま 
す . 


AB*C 十 DAR ネ ※ ネ ー※ ム AOC 十 E※ ネ E 十 / 


この 順序 は 逆 ボ ポー ラン ド 記 法 と 呼ば れる も の で す . 
し た が っ て , ど の トラ バー サル が 適し て いる か は , 2 分 木 の 性 質 に 依存 し ます . 





1.7.3.2 挿 入 の 項 で 述べ た よう に , 2 分 木 が " 左 の 子 は 親 よ り 小 さい "と いう 約束 
で 節 に 情報 が 格納 され て いる と, 必要 な 情報 を 取り 出す の は 容易 で す . た と えば , 
図 !1.7.7 の 2 分 木 で “H "を 捜す に は 4 回 の 比較 で 済み ます . この 木 は 12 個 の 節 を 
持ち ます が , E で 比較 し “1 で 比較 し "G” で 比較 し , “H と 比較 し て 発見 さ 
れ ま す . これ は 2 分 検索 と 呼ば れる 方 法 に 似 て いま す . 

2 分 木 は 。 も し 情報 が ラン ダム な 順 で 挿入 され る と, 左右 が ほぼ バラ ンス し た 
形 に な り ま す . 2 " 個 の 情報 が 完全 に 左右 対称 の 形 に 配置 され て いる と,n 回 の 比較 
で 済む こと に な り ま す 。 

検索 の プロ グラ ム は 次 の よう に な り ま す 。 関数 の 戻り 値 は , 見 つか っ た と き は 
節 の 添字 , 見 つか ら な い 場 合 に は ゼロ に な り ま す . 

FUNOCTTON search(8,p%) 

TER'D% く >Nil THEBN 
TE's$<x(p%).Tnf THERN 


search=search(S$b,x(D%).1eft) ' 左 の 部 分 木 を 捜す 
BBLSE TEF s ゆ >x(p%).Tnf THEN 


search=search(S$b,x(D%).right) " 右 の 部 分 木 を 捜す 


LSE 
SeaTch=D% "見 つか っ た 
BND TFP 
If 町 S3 
search=Halse 昌 つ か ら な か っ た 
BND TEF 


BND FUNCTTON 


Z6 


1.7 探索 


情報 が あら か じ め ソ ー ト され た 状態 で 与え られ る と ,。 2 分 木 で は , 枝 は 左 ま た 
は 右 の 1 方 向 に の み 作 成 さ れ ま す ( 図 |.7.9). この よう な 木 に 対す る 検索 は , 節 の 
数 を N と する と , 最も 速い 場合 に は 1 回 の み の 比 較 ( 図 で は “A” を 捜す 場合 )。 最 
も 遅い 場合 は N 回 の 比較 ( 図 で は “F” を 捜す ) , 平均 すれ ば N/ 2 回 と な り ま す . 
N が 大 きい 場合 . これ は ずい ぶん 非 能率 的 な 検索 に な る の で , 図 の よう な アン バラ 
ンス な 木 が 作ら れ な いよ うに 注意 する 必要 が あり ます . 

@ 剛 |./.9 





2 分 木 が アン バラ ンス に な ら な いよ うに 。 挿入 お よび 削除 の 時 点 で バラ ンス を 
調整 する 方 法 と し て は 。, ダ イナ ミッ ク バ ラン ス 木 (ある い は AVL- 木 ) が 知ら れ て い 
ます ., 第 2 部 の 単語 帳 の 作成 で 利用 され て いま す . 





全体 の プロ グラ ムリ スト を リス ト 1.7.I に 示し ます .,. メ イン プロ グラ ム ( モ ジュ ー 
ルレ ベル コー ド ) で は , 10 個 の デー タ を 2 分 木 に 挿入 し ,。 その あと に “Abel” の 有 
無 を 調べ , 存在 し て いる の で 削除 し て いま す . 

プロ シー ジャ PrintTree は , 本 文 で 説明 し た 部 分 以外 に , レベ ル の 表示 と, 左右 
の 子 を 同時 に 表示 する よう に 機能 強化 され て いま す . 

@ リ スト 1./.] 2 分 木 ブ ログ ラム 


1 
2 
3 
4 
5 
6 
7 
8: 


・ DECLARE FUNCTION Search! (SsS$, p%) 
・ DECLARE SUB InitFreeList () 

: DECLARE SUB turn (DP%, u%) 

・ DECLARE SUB delete (s$, D%) 

・ DECLARE FUNCTION GetNode! () 

・ DECLARE SUB insert (s$, p%) 

・ DECLARE SUB PrintTree (p%, depth! ) 


9: CONST False = 0, True = NOT False, Nil = 0 
10: TYPE node 

まま Inf AS STRING * 10 

な left AS INTEGER 

1 導 * right AS INTEGER 

14: END TYPE 

まお : 

16: DIM SHARED TreeSize AS INTEGER 

17: TreeSize = 100 

18: DI 較 SHARED X(TreeSize) AS node 

19: 

20 : CLS 

まく CALL InitFreeList 

な あく 

23・ D% = Ni1 "Root Pointer 

24・ 

2 : READ a$ 

26 : DO WHILE a$ <> “End" 

ま ? CALL insert(a$, D%) 

28 : READ a$ 

29: LOOP ( 

30・ CALL PrintTree(p%, 0) 

31: INPUT a$ 

い ジ 名 S$ = "Abel 

33 TF Search(s$, p%) THEN 

34: CALL delete("Abe1 旨 

な END IF 

36 : CALL PrintTree(p%, 0) 

3 了 7 : 

38・ DATA "Neumann", Jaccobi"。 Abe1", “Pasca1", "Gauss" 
39: DATA "Fuler", "Wiener", "Aitken", "Kutta", "End" 
40: 

41: END 

42・ 

43: SUB delete (s$, Dp%) 

44: JHF p% <> Ni] THEN 

45: TF s$ < xX(Dp%) . Inf THEN 

46・ CALEL delete(S$, X(p%) . left) 
47: ELSE 

48: IF s$ > X(p%) . Inf THEN 

49・ CALL delete(s$, X(Dp%) .right ) 
50 : ELSE 

に f1% = True 

も ・ TF X(p%) .right = Ni] THEN 
53・ D% = X(D%) .left 

54・ ELSE 

2 で TF X(D%).left = Ni] THEN 
56・ D% = X(D%) .right 
57 : ELSE 

58: CALL turn(pD%, X(D%) .1eft) 
59・ END IF 

60: END IF 

61 ・: END IF 

62: END IF 

63: END IF 


65: END SUB 
67: FUNCTION GetNode 


69: GetNode = X(0).right 


109: 


FOR 


X(0).right = x(X(0).right).right 
・ END FUNCTION 


。 SUB InitFreeList 


1 = 1 WO TreeSize 
X(1 - 1).right = 1 


NEXT 1 


・ END SUB 


Xx(TreeSize).right = Nil 


SUB insert (Ss$, D%) 


TF p% = 0 THEN 


D% = GetNode 


ELSE 


IF p% = 0 THEN 


PRINT "No room!'!! Insertion  ": s$: "| Hs aborted." 


EXIT SUB 


END 1F 
X(D%) .Inf = s$: X(p%) .1eft = Ni]: X(p%) .right = Ni1 


TEF s$ < X(Dp%) .Inf THEN 


・ END SUB 


END 


・ END SUB 


114: 
3115: 
116・: 


ます 


118: 


139: 


120・ 


まる 1 ・ 


12/・ 


123 : 
124 : 
まみ の < 
126・ 
32( 
128・ 
129: 


130 


ELSE 


せ % かー 
END IF 
・ END SUB 


CALL insert(s$, x(D%) .1eft 


ELSE 


CALL insert(s$, xX(p%) .righ 


END IF 
END IF 


・ SUB PrintTree (p%, depth ) 
HEF p% <> 0) THEN 
CALL PrintTree(X(pD%) .left, depth + 1) 


) 


{) 


1$ = X(X(D%) .left).Inf: r$ = XX(D%) .Tight) .Tnf 
PRINT USING "###: @ @ @ ": depth: 1$: Xx(D%) .Inf: r$ 


IF 


FUNCTION Search (S$, D%) 
TF p% <> Ni] THEN 


TF s$ < X(D%) . Inf THEN 
Search = Search(sS$, X(D%) 
ELSEIF s$ > X(Dp%) . Inf THEN 


Search = Search(s$, X(D%) 
ELSE 
Search = D% 
END IF 
ELSE 
SearCch = FalSe 
END IF 
END FUNCTION 


SUB turn (D%, U%) 
TF x(u%).right <> Nil THEN 
CALL turn(D%, X(u%) .right) 


X(p%) .Inf = X(u%).Inf 


X(u%) .1left 


CALL PrintTree(x(p%) .right, depth + 1) 


.left ) 
.-Tight ) 


"Search left tree 
"Search right tree 


"FOund 


"NOt found 


|.7 探索 


ZZ 





第 部 
(Quick BASIC 
ブロ グフ ム 人 研究 











ulck BAGIC 
6 』 ソー スリ スト 清書 ブロ グラ ム 


gm.1.1 概 要 








プ 


タグ 


本 章 で は 。 応用 例 と し て , テキ スト モー ド で セー ブ さ れ た QB 用 の ソー スリ スト 
を プリ ンタ に 印刷 する プロ グラ ム を 紹介 し ます . プロ グラ ム 名 を FINELST.BAS 
(Fine Listing) と し ます . 

プロ グラ ム の 概要 は 次 の と お り で す . 

人 @ 1 行 に 印刷 され る 文字 数 を 増やす た め に 英文 字 は エリ ー ト サイ ズ ( 1 イン チ 12 文 

字 ) と し , A4 用 紙 あ る い は 10” の 連続 紙 の 場合 96 文 字 で 印字 する . 

@ キ ー ワ ー ド は 強調 文字 で 印字 し , 読み や すく する . 
き 使 いや すさ を 考え て , 印刷 する ファ イル は , 画面 に 一 覧 さん た ファ イル リス ト 

か ら 選 択 可 能 と する . 





ここ で 使用 さき れる プロ グラ ム 上 の 技法 の 主 な も の は 次 の と お り で す . 
@⑱ イ ンタ ラブ ト 命 令 を 使用 し て , DOS の シス テム コー ル を 実行 する . 
@ プ ログ ラム 中 か ら の プリ ンタ の 制御 に つい て の 実例 を 示す . 

@ テ キス ト 中 か ら ,。 デリ ミタ で 区 切ら れ た 単語 を 摘出 する . 
人 @ 文 字 コ ー ド 判定 の た め の い くつ か の 関数 を 作成 する . 
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ノノ 


r 多 


g.| Quick BASIC ソ ー ス リス ト 清 書 プ ログ ラム 


p.1.g 苦 本 万 釘 


清書 プロ グラ ム は 文字 どおり , ソ ー ス リス ト を 美しく 印刷 する プロ グラ ム で す . 
- “美しく” と は 。 人 に よっ て も 価値 基準 は 異な る で し ょ う が , ここ で は 実用 的 な 
観点 か ら 次 の よう な 基本 仕様 を 定め ます . 


(1 ) 


(2 ) 


(3 ) 


(4 ) 


出力 用 紙 に 印刷 され た ソー スリ スト の 各行 に 通し 番号 を 付 し ,。 か つ ペ ー ジ 
を つけ て , 散逸 を 防ぐ . 

ペー ジ ご と に ファ イル 名 と ファ イル 作成 日 を 印字 する . これ に より ,。 ファ 
イル の バー ジョ ン の 相違 が 区 別 で きる . か つ 。 印刷 し た 日 付 も 付す . 

キー ワー ド は 強調 文字 で 印字 する こと に し , リス ト に 変化 を つけ る . これ 
に よっ て 可読性 が 向上 する . 

1 行 の 文字 数 が 多い 方 が 印字 は 楽 で ある が , 文字 が 小さ いと 読み に くく な 
る の で , エリ ー ト サイ ズ (1 インチ, 12 文字 ) を 使用 する . これ に より 。, 行 
ご と に 行 番号 を 付 し て も 。 エディ タ の 画面 サイ ズ 80 桁 は カバ ー で きる 。 


以上 の よう な 要求 を 満た す プ ログ ラム を 開発 し ます が , 具体 的 に は 以下 の よう 
な こと を 定め て お く 必 要 が あり ます . 


(5 7 
(6 ) 


(7 ) 


印字 すべ き フ ァイル は 。 テ キス トモ ー ド で ファ イル され て いる こと 。 

プリ ンタ は PR-201 系 と する (プリ ンタ の コン トー ル 部 に つい て は 後述 する の 
で ,。 ほ か の プリ ンタ を 使用 する 場合 は それ を 変更 し て くだ さい ). 

1 行 が 長い 場合 に は , 目 動 的 に 複数 行 に 分 け て 印字 する . その 際 , 語 " ヵ 
分 割 さ れ な いよ うに する 。. 


プロ グラ ム の コー ディ ング に 際 し て は , 次 の よう な 方 針 を た て ます 。 


(8 ) 
し 9 


(10) 


宙 長 に な っ て も , 可読性 が よく な る こと を 心がけ る . 

QB で 用 意 さ れ た 使い や すい 制御 構造 を 積極 的 に 使用 し て みる . 従来 の BASIC 
の 命令 は で きる だ けさ ける (た と えば , 1 行 の IF THEN ELSE を 使用 し な 

いと か 。 DEF FN の 代わ り に FUNCTION と する な ど ). 

プロ シー ジャ 。 関数 を 多用 し 。 か つ ,。 それ ら の 使用 に より プロ グラ ム が 読 
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C) 


みや すく な る よう に する . 
以上 の 方 針 で 作業 を 進め ます . 


き 


この プロ グラ ム は , 印字 すべ き テ キス ト フ ァイル の 選択 を , 画面 に 一 覧 され た 
ファ イル リス ト か ら 行 っ た の ち 。 テキ スト ファ イル を 1 行 ず つ フ ロッ ピ ィ ディ ス 
ク か ら 読 み 込ん で , 可読性 の よい リス ト に 整形 し た の ち プ リン タ に 出力 し て いき 
ます . 

図 2.1.1 に プロ グラ ム 全 体 の ゼネ ラル フロ ー を 示し ます ,。 また , リス ト 2.1.1 に 
プロ グラ ム 全 体 の リス ト を 示し ます . 本 書 の プロ グラ ム の リス ト は すべ て この 清 


書 プ ログ ラム を 使っ て いま す 。 
@ 図 2 1 ] 清書 プロ グラ ム ゼ ネ ラ ルフ ロー チャ ー ト 


E 字 する ファ イル 
の パス 名 入力 

ファ イル 一 覧 表示 か 
ら フ ァイル の 選択 


グ 


p.1.3 ブロ グラ ム 概 要 


少 


















E[] 刷 処 理 
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P.] Quick BASIC ソ ー ス リス ト 清 書 プ ログ ラム 


@ リ スト /Z.].| 


の の っ の の いも ト も ピ 


tk う kkkt う テー ビビ ピピ ロ ビビ ビビ 
Gt うど の つの の ぬら いら ピ ビジ 


24 : 


きら が 


28: 
29・ 
30・ 
いま 
32・ 
3 : 
34・ 


36: 
37 * 
38 : 
99 > 
40・ 
41 : 
42: 
43: 


45・ 
46・ 
47・ 
48・ 
49: 
50: 
の ま バ 
52: 
53・ 
54: 
55: 
56・ 
57・ 
56: 
59* 
60: 
61 : 
62・ 
63・ 


65・ 
66 : 
67・ 


DECLARE SUB GetDir (1npfn$,。 1npdev$, optdev$, t1t]e$ ) 
DECLAREF SUB DirSub (sumfile!、 了 11e$( ) , path$ ) 
DECLARE FUNCTION FileName$ (8$) 

DECLARFE FUNCTION IndentN! (g$) 

DECLARE FUNCTTON PutZero$ {m$ ) 

DECLARE FUNCTION IsDig1t! (C$) 

DEPCLARE FUNCTION IsVar! (b$) 


・ DECLARE FUNCTION IsAlpha! (a$) 

・ DECLARE FUNCTION DispSecd% (て t%) 

・ DECLARE FUNCTION DispHour% (t%) 

・ DECLARE FUNCTION DispMint% (t%) 

・ DFECLARF FUNRCTION DispNonth% (d%) 

・ DECLARE FUNCTION DispDay% (d%) 

・ DECLARFE FURNCTION DispYear% (d%) 

・ DECLARE SUB ProcTab (DP$) 

・ DECLARE FUNCTION IsShlftJis (ch$) 

・ DECLARE SUB LnPrint (one1ine$. a$、 keyw$( ) 、 keys1ze) 
・ DECLARE FUNCTION SearchKey! (keyw$(), aS$, keysizei) 
・ DECLARF SUB SetKey (keyw$( ) , KeySize) 

・ DECLARE SUB FFeed (p!, 1!, 1npfnS、 て 1 て tl]e$ ) 

・ DECLARE SUB Ti1t1Pr (p!、 lnpfn$. title$) 

・ DPCLARE SUB PR (c1num, rWnum, nnUm, 1npfn$, 1npdev$, optdev$ , keyw$( ) , keysize, tit1le$) 
・ DECLARE FUNCTION NumArea! (n! 、tn!) 


SUB SelFile (sumfile!、 file$( ), escflg, filenum ) 


・ DECLARE FUNCTION RowPos! (n!) 
・ DECLARE FUNCTION ColPos! (n!) 
・ DECLARE SUB DispFile (sumftle!, flle$() ) 


*$INCLUDE: 'a:\qb45\INCLUDE\QB BI 


DSHARED dstmwp(1 TO 200) AS STRING * 2 
DTI SHARED tstmp(1 TO 200) AS STRING * 2 
D1 枯 SHARED keyw$(50) 


・ CONST LINETOP = 4 LINEEND = 24. FALSE = 0, TRUE = NOT FALSE 


ON ERROR GOTO ErrExit 

Clnum = 96 

TrWIU 了 W = 58 

DU = S 

WITDTH LPT1: , 255 

CALL GetDir(inpfn$, inpdev$ , optdev$ , t}t1e$ ) 

CALL SetKey (keyw$( ) , keys1z2e) 

CALL PR(c1num, rwnum, nnuUm, 1npfn$、 inpdev$, optdev$, keyw$( ) , keyslze, title3$ ) 
CIS 

END 


DATA AS, CALL, CASE, CLOSE、 COMMON CONRST、 DATA. DECLARE, DEF, DEFDBL 
DATA DFFINT, DEFLNG, DEFSNG. DEFSTR, DTMI、 DO ELSE, ELSEIF END, ERNDIF 
DATA EXITT、 FOR. FUNCTION GOSUB, GOTO. IF、LOOP, NEXT. OPEN REN 

DATA RESUME、 RETURN, SELECT, STATIC, STOP、 SUB. THEN, TO. TYPE 

DATA UNTIL ,WEND, WHILE, 2 


ErrEX】t: 


PRINT " ェ エラー が 発生 し まし た . 
PRINT " ェ ラ ー 番 号 = “: ERR 
SELPCT CASE ERR 

CASE 71 
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68: PRYNT “ 定 し た ドラ イプ に ファ イル が あり ませ ん 
69: すま や ウッ イル の 人 人 っ た ウフ ロッ セ ピピ ィ デ ディスク 年 
70: PRINT "な に か キー を 押し て くく ださい. 
を まさ | し 9 ' 

を LOOP UNTIL (INKEYS <> “「) 

トド の CASE ELSE 

74・ CLOSE 

75・ END 

76・ 

人 END SELECT 

78・: 

イィ 9: 

80: RESUNE 

81 : 

82・ FUNCTION Co1Pos (hn) 

83: 

84・ ColPos = (1 ・ 16 * (n - 1) ) WOD 80 

85・: 

86: END FURNCTIOR 

8B7・ 

88・ SUB DirSub (sumfile, file$( ) , path$) 

89: 


90・ DTM R AS RegTypeX 

91: DIM dta AS STRING * 129 

92: DI f1d AS STRING * 128 

93: DTMN filag(1 TO 200) AS STRING * 1 
94 : 

95: sumfiie = 0 

96・ dta = SPACES(129 ) 

97・ f1d = path$ + SPACES(128 - LEN(pathS) ) 
98: MIDS(f1d, LEN(path$) + 1) = CHRS(0) 
99: KR.aX = &H1A00 

100: R.ds = VARSEG(dta ) 

101: R.dx = VARPTR(dta) 

102: R.es = -1 

103: CALL INTERRUPTX(&H21. KR, K) 


104 : 

105: KR.aX = &H4E00 

106: R.ds = VARSEG(f1d) 
107: R.dx = VARPTR(f1d) 
108: R.es = -1 


109: R.cx = &HO 

110: CALL INTERRUPTX(&H21, R, KR) 

111: JF (R.ax = &H12 OR R.ax = &H2 OR ド .ax = &H3) THEN GOTO skib 
3112: 

113: 

114・: SUHTile = 8umfi]e + 1 

まま filag(Sumfile) = MIDS(dta, &H16, 1) 


116 : fije$(sumfile) = MIDS(dta, &HIF. 12) 
4 7: tStmD(Sumfile) = MIDS(dta, &H17、 2) 
118: dStmD(Sumfile) = MIDS(dta、&H19, 2) 


19・ 

120・ MIDS(dta, &H1F, 12) = SPACPS (12) 
が ま : MIDS%(dta, &H17。 2) = SPACES ( 2) 
122: 衣 IDS(dta, &H19, 2) = SPACE$ (2 ) 
まめ か か R.aX = &H4FO0O 


124 ・ K.dX = VARPTR(f1d) 
125・ R.ds = VARSEG(f1d ) 
126 : R.eS = -1 


1 2 プ ・ R.cxX = &HO 
128: CALL INTERRUPTX(&H21 、 R, KR) 
129: LOOP UNRTIL (R.a7 = &H12) OR (sumfije >= 200! 


130: 

131: Skib: 

132 : 

133: 半 (R.ax = &H2 0R R.ax = &H2) THEN 

134 : まま 4 人 指 だ し た ドク イオ ジグ (また は /wX ) に と 
135: PREKN ま フウ ッッ / ィ ス クタ ク お が な いあ ^ 
136 : PRKERNE ププ ァ イス イル が 全 在 し ませ ん 。 


106 


c.| (Quick BASIC ソー スリ スト 清書 プロ グラ ム 


137 : END 

138: ERND F 

139: 

140: 

141: PND SUB 

142: 

143: PUNCTIOR DispDay% (d%) 

144: 

145: DispDay% = d% AND &H1F 
146: 

147: END FUNCTION 

148: 

149: SUB DispFile (sumfile, fileS$( ) ) 
150: 

151 : VIFW PRINT LINETOP TO LINEEND 
152 : 

153 : roWw = 3 

154 : Co] = 1 

155: 

156: 3 * ょ 』 

157: LOCATE RowPos(1) , ColPos (1 ) 
158: COLOR 15 

159: PRINT USING "& &"・ file$(} ) 
160 : 

161 : COLOR 7 

162: FOR }j = 2 TO sumflle 

163: LOCATE RowPos(1) , Co1Pos (1 ) 
164 : PRINT USING "を & &": file$(}) 
165: NEXT 1 

166・: 

167: ERD SUB 

168・: 

169: FUNCTION DispHour% (【%) 

170: 

を a% = t% AND &HF800 

全 を 

173: F as < 0 THEN 

174 : Y = 8a%+ 65536 

175 DispHour% = Y / &H800 
176 : ELSE 

177・ DispHour% = a% / &H800 
178: END IF 

179: 

180: PERND FUNCTION 

181 : 

182: FUNCTION DjispMint% (て %) 

183: 

184: a% = t% AND &H7EO 

185: 

186・: DispWMint% = a% / &H20 

187 : 

188: END FUNCTION 

189: 

190: PINCTION DispMonth% (d%) 

191 : 

192 : a% = d% AND &H1EO 

193: 

194: DispWMonth = as / &H20 

195 : 

196: END FUNCTION 

197: 

198: FUNRCTION DispSecd% (t%) 

199: 

200: DispSecd% = t% AND &H1F 
201 : 

202: END FUNRCTION 

203: 

204: FUNCTTOR DispYear% (d%) 

205・: 
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206・: 
207・ 
208: 
209・ 
210・ 
も * 
まる) 
213・ 
214: 
215: 
216 : 
ます 
218: 
219: 


220・ 
と 
レザ 人 
レギ 
224・ 
レポ 
226 : 
人 
228 ・ 
" ポ み * あ 
230・ 
231 ・ 
232・ 
233 : 
234・ 
の: 
236: 
23/・ 
238 : 
239・ 
240・ 
241 
み 全 2 バ 
243: 
244・ 
245・ 
246 : 
247・ 
245: 


249・ 
250・ 
まさ 
2 
な ら さ ・ 
254・ 


255 : 


256 : 
な 2 た ・ 
258: 
259: 
260・: 
お: 
262・ 
263: 
264: 
265: 
266 : 
267・ 
268・ 
269・ 


270 ・ 


オト: 
272: 
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a% = d% AND &HFE00 
DispYear% = a% / &H200 
END FUNCTION 
SUB FFfeed (p, 1, jinpfn$, ti1t1e$ ) 
の NT 2、 
PRINT #2, CHR$(12 ) 
Pp = P+ ゞ 1 
1 = 0 
CALL TIt1Pr(p, inpfn$, tit1e$) 
FEND SUB 


FUNCTION FiieNameS {Ss$) 


fS = RTRIMS (SS ) 
IF ASC(RIGHTS(fS. 1)) = 0 TIEN f$ = LEFTS(fS. LEN(f$) - 1) 
FileNames = fS 

END FUNCTION 

SUB GetDir (jinpfn$, jnpdev$ optdevs. title$) 

DI file$(1 TO 200) 


DO 

CLS 

* ま RINH ドラ イツ 名 《( サ ププ デ ダ ィ ッ ィ レ クタ トリ の 失 合 は バ ュ を を 、 w 
5 避 は 名 を 含む ) 

UPUT を 入力 し て 《 だ まい 便 ) 5 と ひか BMPN0GC ど と 「| 

TF fdpathS = "" THEN 「 ど ", fdpath$ 

DathS = "w.*" 
ELSE 


fdpathS = fdpathS + “"\" 
PathS = fdpathS + "ww 
FEND jjF 
CALL DirSub(sumfile, fileS( ) , pathS ) 
ESCf1gE = FALSEF 
CALL DispFlle(sumfile, 了 11e$( ) ) 
CALL Seifile(sumfile, file$(), escflg, filjenunm ) 


LOOP WHILE escflg 


inpfn$ = FiljeNames(file$(f1iienum ) ) 
inpdev$ = fdpathS + inpfnS 
optdevS = “"LPT1・" 


ds% = CVI(dstmp(filenum ) ) 
ts% = CVI(tstmp(filenum) ) 


1aStdate$ = PutZeros(RIGHT$(STRS$(1980 + DispYear%(dss) ) , 4) + “-" 
RIGHTS (STRS(DIspNonth%(ds%) ) , 2) + = + RIGHTS (STRS (DispDay%(dsx)). 2) ) 
18Stt1ime$ = PutZero$(RIGHTS(STRS(DispHour%(ts%)) 2) +"・" + RIGHT$(STRS(DispM1nt%(ts%) ) 


2) + に + RIGHTS(STRS(DispSecd%(ts%) ) , 2) ) 
nOwdate$ = DATES 
nhOWt1WeS = TIMES 


まま 
274 : 


スナ 5: 
276 : 
で ぎ 
278 : 
279・ 
280: 
281 : 
282: 
283: 
284 : 
285: 
286 : 
287 : 
288・ 
289: 
290: 
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292: 
293 : 
294 : 
295・ 
296 : 
297・ 
298・ 
299 : 
300・ 
301 : 
302: 
303: 
304 : 
305: 
306: 
307: 
308: 
309: 
310: 
の まま < 
の 
313・ 
314・ 
319・ 
316: 
31 7 : 
318: 
319: 
320・ 
トゲ 可 
みみ ・ 
23 
324 : 
の 29 


326 : 
トピ ル 人 
328: 
329・ 
330・ 
331 : 
332 : 
333 : 
334 : 
335 : 
336 : 
337・ 
338・ 
339・ 


.] Quick BASIC ソ ー ス リス ト 清 書 プ ログ ラム 


title$ = inpfn$ 和 ” + ]aStdate$ + OO 1aStt}i w に し 
nowtimeS 回 CS + + nowdate$ + 。 


END SUB 
FUNCTION IndentN (g$) 


n = 0 
DO 
nh = h ? 1 
s$ = MIDS(g$, n, 1) 
LOOP UNTIL sS <> “ 
和 N \ DD ・ は 


IndentN = h 
ERND FUNCTION 
FUNCTION IsAlpha (aS) 
TF ((aS >= “"A" AND a$ <= "Z") OR (aS$ >= “"a AND aS <= "2 )) THEN 
IsAlpha = TRUE 
ELSE 
IsAlpha = FALSE 
END 』F 
FND FURCTIOR 
FUNCTION IsDigit (Cc$) 
TF (c$ >= “0" AND c$ <= "9") THEN IsDigit = TRUE EISE IsDigit = FALSE 
ERD FUNCTION 
FUNCTION IsShiftJis (ch$) 
TF ch$ = ”" THER 
C = 0 
FELSE 


C = ASC(ch$) 
ERD IF 


TF (((128 < c) AND (c < 160) ) OR ((224 <= c) AND (c <= 254) ) ) THER 
TsSh1ftJis = TRUE 

ELSE 
isShiftJis = FALSE 

END j『 


FND FUNCTION 
FUNCTION IsVar (b$) 
TTF (DS > ェ = "AT AND b$ <= "7 ) OR (DS$ >= “a′ AND b$ <= 2 ) OR (DS >= “0 AND DS <= 
9T) OR bD$ = “ご 、| OR bD% = "! OR DS$ >: # OR DS > $ OR b$ = 5? OR bS =: 《 ) EN - 
IsVar = TRUE 
ELSE 
TsVar = FALSE 
END IF 


FND FUNCTION 

SUB LnPrint (one1ine$, a$, keyw$( ) , keysize ) 
rf = FALSE 
qf = FALSE 
kflag = FALSE 


1ien = LEFN(one1ine$ ) 
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340: } = 0 


34 1 ・ DO WHILE])< jien 

342・ 

343: IF (NOT kflag) THEN 

344 : PRINT #2。 CHR$(27) + “E・: 

345・ END jF 

346: 

347 ・ 本 

348: ch$ = MID$(oneline$, ], 1) 

349: kfiag = 1sShiftJis(ch$ ) 

350 : 

351 : F jsAlphaich$ ) THER 

939 る K = 0 

353: 「 ト し 提 

354・ 羽 ) 

355・ K = Kk+1 

356・ 8S = 8S$ + ChS 

387 : 3 * す ゃ を 3 

358: ch$ = MID$(oneline$, ], 1) 

359・ kflag = 1sShiftJist(chS ) 

360・ LOOP UNRTIL (NOT (IsVar(ch$) OR IsDigit(ch$)) OR ] > 11en) 
361・ 

362: 1 w す ・』 

363・ 

364: TJF rf OR qf THEN 

365 : PRINT #2. a$: 

366 : ELSE 

367: fkeyw$(SearchKey(kevw$() , a$, keysize) ) = aS THEN 
368 : PRINT #2。 CHRS(27) + "し に: a$: CHRS(27) + CHR$(34) : 
369・ ELSE 

370: PRINT #2, a$: 

371 END IF 

372 : END IF 

の を ね ELSE 

374: IF ((chS = “"「”) AND (NOT qf) ) THIEN rf = NOT rf 

375 : 』F ((chS = CHRS(34) ) AND (NOT rf ) ) THEN qf = NOT qf 
376・ PRINT #2, ch$: 

き 7/・ END IF 

378: LOOP 

379: 

380・ が R ま 介 | 2、 

38] ・ 

382・ END SUB 

383 : 

384: FUNCTIOR NumAreas (n, tn) 

385 : 

386・ TF (n >= 1 AND n <= tn) EN NumArea = TRUE ELSE NumArea = FALSE 
387・ 

388: ERD FUNCT1ON 

389: 


390: SUR PR (Clnum, rwDUm, nnUm,。 1npfnS, 1npdev$ 、 optdev$S, keyws( ), keysize, t}1t]e$) 


392: DIM prfile$(100 ) 

93393 : 

394 : OPEN inpdev$ FOR INPUT AS #] 
395・ OPEN optdev$ FOR OUTPUT AS #2 
396・ 

397: PRINT #2。 CHRS$(27) + "E" 

398・ 

399 : Inu = 0 

400: 

401 : D8Ee = 1 

402・ 1incnt = 0O 

403: 

1 CALL Tit1Pr(page, inpfn$、 title$) 
40S: 

.406・ DO _ UNTIL EOF(1) 

40?・ 

408・ 1 = 1 


c.| Quick BASIC ソ ー ス リス ト 清 書 プ ログ ラム 


409・ 1nUM = ]num + 1 

410: 

411 : LINE INPUT #1。 prfile$(1) 

412: 

413: CALL ProcTab(prfile$(1 ) ) 

414: 

415: indnt = IndentN(prfile$(1】 ) ) 

416: 

417・ Prfilie$(1) = RIGHT$(STRING$(nnum - 2, “" “) + STRS(Jnum) *+ ": "。 nnum)+prfile$(i) 

418: 

419: DO WHILE LEFN(prfile$(1) ) > cl1num 

420 : F MIDS(prfile$(1), cl1num., 1) <> " " THEN 

421 : k = 1 

422 : DO 

423: TJF (MIDS(prfile$(i), clnum - k, 1) = " "OR MIDS(prfiles(i), clnum - 

k, 1) = “"") THEN PXIT DO 

424: k = k+ 1 

425: LOOP 

426・ prfile$(}1 + 1) = STRINGS(indnt, ” 「) + STRINGS(nnUu。「 「) ょ 
MIDS(prfile$(1), clnum -Kk+1) 

427・ prfile$(1) = LEFT$S(prfile$s(1), clnum -k) ・" " 

428: ELSE 

429・ Prfiie$(i + 1) = STRINGS(indnt, " ") ょ STRINGS(nnum,。 の) ょ 
MID$tprfile$(1), clnum + 1) 

430: prfile$(}i) = LEFTS(prfiles(i), clnum) + " “ 

431 : END IF 

432・ indnt = IndentN(prfiie$(i + 1)) - nnum 

433: 折 。 近 

434・: LOOP 

435・ 

436 FOR }) = 1 TO ji 

437: CALL LnPrint(prfile$(j) 、 a$, keyw$( ) , keysize) 

438: inCnt = 1ijincnt + 1 

439: 導 (11incnt = TrTwnum - 2) THER CALL Ffeed(page, 1incnt, npfnS, tit1eS) 

440・ REXT ] 

441 : 

442: LOOP 

443: 

444: CLOSE #1. #2 

445・ 

446: END SUB 

447: 

448: SUB ProcTab (bp$) 

449: 

450 : CONST tabva] = 4 

451 : 

452・ len = LEFN(Dp$) 

453: 4 は 

454: 

455・ DO WHILE ] <= 1]jen 

456 : ch$ = MID$(D$、]j, 1) 

457: F ch$ = CHR$(9) THEN 

458: PS = LEFT$(P$, ] - 1) + STRINGS(tabval. " ") + MIDS(DS, ] + 1 ) 

459: 1jen = LEN(DpS) 

460: END jF 

461 : 3 * | * } 

462・ LOOP 

463・ 

464: END SUB 

465・ 

466: TURNCTIOR PutZero$ (gm$ ) 

467・ 

468: ZerODOS = INSTR(m$。 " ") 

469: DO WHILE (zeropos ) 

470: MIDS$( 和 mW$。 Zeropos ) = "0" 

471 : ZeFODOS = INSTR(W$。 “" ") 

472・ LOOP 

473・ 

474・: PutZero$ = 各 $ 
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475: 
476: END FUNCTION 


477・ 

478: FUNCTION RowPos (n) 

479・ 

480: RowPos = INT((] + 16 * (np - 1)) / 80) + LINETOP 

481 ・ 

482: END FUNCTION 

483: 

484: FUNCTION SearchKey (keyw$( ) , a$, keysize) 

485: 

486・ h = 0 

487 : { = keysize 

488: 

489・ DO 

490: | * NRN * を) \ ま 2 

491 : TF keyw$(i) <= aS THENh = ji +」1 

492・: T『 kevw$(i) >= aS THENt = j - 1 

493: LOOP UNTIL h > t 

494・ 

495・ SearchKey = 1 

496・: 

497: END FUNCTTJON 

498・ 

499: SUB SelFile (sumfile, file$(), escflE, fi]enum ) 

500・: 

501 : filenum = 1 

502・ 

503: DO 

504 : DO 

505 : aS = INKEY$ 

506: LOOP WHILE aS = “" 

507・ 

508: DO WIHLE (aS = CHR$(0, &H48) OR a$ = CHRS(0, &H50) OR as = CHRS(0. &H4B) OR aS = 
CHRS(0, &H4D) ) 

509・ 

510: SELECT CASE a$S 

ちよ CASE CHRS(0, &H48) 

5 も 2・ neXtfnumm = filenum - 5 

る 3: CASE CHRS(O, &H50) 

514・ neXtfnum = fjilenum + 5 

515・ CASE CHRS(0, &H4B) 

516: neXtfnumm = filenum - 1 

ます > CASE ELSE 

518・ heXtfnum = filenum + 

Si9: END SELECT 

S20 : 

521 ・: T『 NumArea(nextfnu. Sumfijie) THEN 

2 に COLOR 7 

523・ LOCATE RowPos(filenum ) . ColPos(filenum ) 

524 : PRINT USING “& &": fileS(filenum ) 

ちら 23 : 

526・ COLOR 15 

527・ LOCATE RowPos(nextfnum ) , Co1Pos (nextfnum ) 

528: PRINRT "USING "& %", file$(nextrfnum ) 

529・ 

530・ filenum = nexXtfnum 

9 は 3 よ : 

532・ END TF 

ら 533 

S34・ DO 

535・ 8a$ = INKEYS 

536・ LOOP WHILE a$ = “"“ 

に 人 LOOP 

538: 

539: LOOP UNRTIL (as = CHRS(13) OR a$ = CHRS(&H1E ) ) 

540・ 

541 ・ IF a$ = CHR$(&H1B) THEN escf1g = TRUE 

542・ 
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c.| (Quick BASIC ソー スリ スト 清書 プロ グラ ム 


543: COLOR 7 

544・ VIEFW PRINT 1 TO 25 

545 : 

546: ERND SUB 

547・ 

548: SUB SetKey (keyw$() , nh) 

543 : 

550・ 1 = 0 

551 : 

S52 : DO 

553: READ keyw$(1) 

554・ TF keyw$(1) = “"z~ THEN PXIT DO 

555・ まま NRN | ) 1 ' 

556 : LOOP 

に 人 

558 : = ま ・1 

559・: 

560: END SUB 

561 : | 

562: SUB Tit1Pr (p, inpfn$。t}tle$) 「 
563 : 肖 ' IN 3 
564 : hdtines = title$s+" -、 ま PaEC  +? STRS(D) 
565・ NN ' 0 「 “ 

566: PRINT る 2、hd1jne$ 

567・ た KENRI 12、 

568: ( 
569: END SUB 

1 


ヶ 


き 6.1.4 主要 な プロ シー 


ジャ ・ 関 数 に つい て の 説明 





この プロ グラ ム で は , 印刷 する ファ イル を 選択 する 場合 に , 画面 に 一 覧 され た 
ファ イル リス ト か ら , カー ソル で 選択 可能 な 仕様 に し て いま す . また , ファ イル 
の バー ジョ ン の 違い を 区 別 で きる よう に 。 印字 きれ た リス ト に は ファ イル 名 と と 
も に ファ イル 作成 日 も 付す こと に し て いま す . これ ら は ,。MS-DOS に お ける DIR 
コマ ンド で 得 ら れる 情報 の 一 部 と 同じ で す が , BASIC の 命令 の 中 に は それ に 相当 
する 命令 は あり ませ ん . そこ で ,。 この プロ グラ ム で は ,。 イ ンタ ラプ ブ プ ト 命 令 を 使用 
し 。DOS の シス テム コー ル を 利用 し て 。 フ ロッ ピ ィ ディ スク 内 の ファ イル の ファ 
イル 名 と ファ イル 作成 日 を 得 て い ます . ここ で は その 方 法 に つい て 簡単 に 説明 し 
ます . 

QB の 中 か ら MS-DOS の 提供 する サー ビス を 利用 する た め に は , ソ フト ウェ ア 割 
り 込 み の 命 令 で ある , CALL INTERRUPTX 和 命令 を 使用 し ます . 
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この 関数 の 書式 は , 
CALL TINTERRUPTX (interruptnum,inreg8,outreg ) 


で す . ここ で 。 interruptnum は DOS の 割り 込み 番号 を 示す 値 で す . inregs は 割り 
込み 実行 中 の レジ スタ の 値 を 示す 変数 で , outreg は 割り 込み 後 の レ ジス タ の 値 を 示 
す 変 数 で す .。 この 2 つの 変数 は RegTypeX 型 と し て 宣言 し て お きま す . 

さて 。MS-DOS の シス テム コー ル の 大 部 分 は , 割り 込み 番号 學 H21 で 実行 され 
ます ., 実行 し た い 処 理 の ファ ンク ショ ン 番 号 と その ほか 必要 な 情報 は , 決め られ 
た レジ スタ に セッ ト し て お く 必 要 が あり ます . 

で は , 本 プロ グラ ム に お ける 場合 に つい て 具体 的 に 説明 し まし ょ う (SUB プ ロ シ ー 
ジャ DirSub の プロ グラ ムリ スト を 参照 し て くだ さい )。 

DOS の シス テム コー ル に 関す る いく つか の 変数 を 次 に 示す よう に 宣言 し て いま 
す . 


DIM R AS RegTYyYpe 共 え 

DIM dta AS STRTING * 129 

DIM fld AS STRING ※* 128 

DIM flag(1 TO 200) AS STRING * 1 
DIM file$(1 TO 200) 

DIM dstmp(1 TO 200) AS STRING * 2 
DIM tstmp(1 TO 2000 ASSTRING * 2 


宣言 文 の 先頭 で 。 RegTypeX 型 の 変数 R を 宣言 し て いま す . 

DTA( バ バッファ) は 129 文 字 の 固定 長文 字 列 型 と し て 宣言 され て いま す . 固定 長文 
字 列 変数 flId は , ディ レク トリ を 指示 する パス 名 を 格納 する バッ ファ で す . 

シス テム コー ル を 使っ て 得 ら れる 情報 の うち 。 ファ イル 名 , ファ イル 作成 日 お 
よび 時 間 は 。 文字 型 配列 file$。 dstmp。tstmp に それ ぞ れ 格納 され ます . 

さて 。 こ の プロ グラ ム で 行う の は DOS の シス テム コー ル を 利用 し た , 指定 され 
た ディ レク トリ に お ける ファ イル の 検索 で す . これ は ファ ンク ショ ン 番 号 4EH ( 最 
初 の ファ イル の 検索 ) と ファ ンク ショ ン 番 号 4FH (次 の ファ イル の 検索 ) を 用 いま す . 

具体 的 に 説明 し まし ょ う . 図 2.1.2 に 処理 の 概要 を 表し た フロ ー チ ャ ー ト を 示し 
ます . 
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p.] Quick BASIC ソ ー ス リス ト 清 書 プ ログ ラム 
は じ め に 。, 


dta = SPAOE$(129) 
に よっ て 。 バッファ DTA の 内 容 を クリ ア し て お きま す . 


fld = path$ 十 SPAOCE$(128 - LEN(pas$)) 
MID$(f1d, LEN(path$) + 1) = CHR$(0) 


この 2 行 で は , パ ス 名 を ASCIIZ 形 式 , つ まり NULL(CHR$ (10) ) で 終わ る ASCII 
@ 図 2.1.2 シス テム コー ル を 利用 し た ファ イル 検索 の フロ ー チ ャ ー ト 


DTA ア ドレ ス の セッ ト 
シス テム コー ル 2Z1H.Ah= ニ 1AH 


取 初 の ファ イル の 検索 
シス テム コー ル 2Z1H.Ah ニ 4EH 


っ ファ イル が 見 つか ら な い 


次 の ファ イル の 検索 
シス テム コー ル 21H.Ah ニ 4FH 













ノア イル が 見 つか ら な い 
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文字 列 に し て いま す . 

ファ ンク ショ ン 番 号 4EH を 実行 し て , 最初 の ファ イル を 検索 する 前 に ,。 ファ ン 
クシ ョ ン 番 号 1AH の シス テム コー ル に より ,DTA ア ドレ ス の 設定 を 行っ て お く 必 
要 が あり ます . 

具体 的 に は , レジ スタ R.ax に 1AH を , R.ds と R.dx に DTA の セグ メン ト と オフ セッ 
ト を セッ ト し て か ら 。CALL INTERRUPTX 命 令 を 実行 し ます . 


R.ax = 改 H1AOOU 

R.ds = VARSEG(dta) 

R.dx = VARPTR(dta) 

R.eS = -] 

CALL INTERRUPT(&H21, R, 民 ) 


次 に , ファ ンク ショ ン 番 号 4EH (最初 の ファ イル の 検索 ) の シス テム コー ル を 行 
いま す . 

手順 と し て は , レジ スタ R.ax に 4EH を , R.ds と R.dx に パス 名 の セグ メン ト と オ 
フ セ ッ ト を,R.cx に 属性 コー ド を セッ ト し て か ら CALL INTERRUPTX 命 令 を 実 
行 し ます 。 


R.ax = &H4R0O 

R.ds = VARSEG(f1d) 
R.dx = VARPTR(f1d) 
R.e8 = -| 

R.cx = &H0O 


GOALL TITNTERRUPT 共 (&HZ21,。 R, 民 ) 
TE' (R.ax = &H12 OR R.ax = &HZ2 OR R.ax = 改 是 3) THEN GOTO 
SK1D 


属性 コー ド は &H0 が セッ ト し て あり ます が ,。 これ は 検索 する ファ イル の 属性 が 
通常 の ファ イル の み 検 索 す る と いう 意味 で す . 

ファ ンク ショ ン が 正常 終了 する と ,DTA に は 表 2.1.1 に 示す ファ イル に 関す る 情 
報 が 収め られ ます . 正 常に 終了 し な か っ た 場合 は , R.ax に エラ ー コ ー ド (02H : ファ 
イル が みつ か ら な い ,。 03H : パス が 見 つか ら な い , 12H : も う フ ァイル が な い , 一 
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m.| Quick BASIC ソ ー ス リス ト 清 書 プ ログ ラム 
@ 表 2Z.1.1 DTA に 得 ら れる 情報 


MS-DOS が 次 の 段階 エフ ァ ン クシ ョ ン 
4FH を コー ル す る と き に 使用 する 


最後 の 書き 込み の 日 付 
ファ イル サイ ズ の 下位 ワー ド 
ファ イル サイ ズ の 上 位 ワ ー ド 


ASCIIZ 形 式 の ファ イル 名 と 拡張 子 
両者 の 間 は ピリ オド が 挿入 され る 





致す る も の が 見 つか ら な か っ た だ た) が セッ ト さ れ ま す の で , 以下 の 処理 を 中 断 し て , 
行 ラ ベル skip に ジャ ンプ させ ます . 

2 つ 目 以降 の ファ イル を 続け て 検索 する た め に , フ ァ ン クシ ョ ン 4FH (次 の ファ 
イル を 検索 ) の シス テム コー ル を 。 フ ァイル が 見 つか ら な く な る か 。 フ ァイル 数 が 
200 を 越え を る まで 行い ます . プ ログ ラム で は DO/LOOP _ UNTIL ルー プ を 使っ て い 
庄 ま 、 


DO 
sumfile = sumfile 十 1 
flag(sumfile) = MID$(dta, &H16, 1) 
file$(sumfile) = MID$(dta, &H1E, 12) 
tstmp(sumfile) = MID$(dta, &H17, 2) 
dstmp(sumfile) = MID$(dta, 改 H19, 2) 


MTD$(dta, &H1F, 12) = SPACES$(12) 


MID$(dta, &H17, 2) = SPAOE$(2) 
MID$(dta, &H19, 2) = SPACE$(2) 
R.ax = &H4ROO 

R.dx = VARPTR(f1d) 
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R.ds = VARSEG(f1d) 
R.e8 = -] 
R.cx = &HO 
CALTL, ITNTERRUPTX(&H21, R, R) 
LOOP UNTTL, (R.ax = &H12) OR (sumfile >= 200) 


まず , バッファ DTA か ら そ れ ぞ れ の 配列 に ファ イル の 情報 を 代入 し ます . 次 に , 
DTA か ら 配 列 に 代入 し た 部 分 の み , スペ ー ス に 置き 換え て お きま す . DTA の 残り 
の 情報 は ファ ンク ショ ン 4FH を 行う 場合 に 必要 に な り ま すか ら , その まま に し て 
お きま す . 

ファ ンク ショ ン 番 号 4EH の 場合 と ほぼ 同じ よう に , レジ スタ R.ax に 今度 は 4FH 
を 。R.ds と R.dx に パス 名 の セグ メン ト と オフ セッ ト を 。R.cx に 属性 コー ド を セッ 
ト し て か ら CALL INTERRUPTX 和 命令 を 実行 し ます . 

この 場合 も ,DTA に は 表 2.1.1 と 同じ 項目 の 情報 が 得 ら れ ま す の で , 最初 の ファ 
イル の 場合 と 同様 の 処理 で 。 ファ イル 名 や 最後 の 書き 込み 日 時 な ど を DTA よ り 切 
り 出し ます 。 

ルー プ の 終了 は R.ax が エラ ー コ ー ド 12H を 返す か , フ ァイル 数 が 200 を 越え を た と 
ころ で 起こ り ま す . 

と ころ で 。 ファ イル 書き 込み の 日 時 は 表 2.1.2 お よび 表 2.1.3 の よう に ビッ ト 列 
で 与え を られ る た めそ の まま で は 処理 で きま せん そこ で 2.1.4.7 で 示す ビッ ト 列 
か ら 文 字 列 に 変換 する FUNCTION プ ロ シ ー ジ ャ を 作成 し て , これ を 利用 する こと 
に よっ て 。 処理 し て いま す . 

な お , QB で シス テム コー ル を 実行 する 場合 に は , 次 の こと に も 注意 を 払わ な け 
れ ば いけ ませ ん . 

(1) CALL INTERRUPTX 命 令 は クイ ッ ク ラ イブ ラリ QB. LIB に 入っ て いま す . 
し た が っ て この 命令 を 使う に は , QB 環境 を 起動 する 場合 に:.,。 この ライ ブラ リ 
を 読み 込ん で お く 必 要 が あり ます . その 方 法 と し て , 次 の よう に MS-DOS の 
コマ ンド ライ ン か ら QB コ マン ド 投 入 時 に , ク イッ クラ イブ ラリ の 名 前 を 指定 
せ ず に / し オプ ショ ン を 使用 する と 目 動 的 に 読み 込ま れ ま す . 


QB / 工 
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PC.| Quick BASIC ソ ー ス リス ト 清 書 プ ログ ラム 
@ 表 2.1.2 最後 の 書き 込み の 時 刻 の フォ ー マ ッ ト 





( 2) CALL INTERRUPTX 命 令 を 実際 に 使用 する 場合 に は , ヘ ッ ダ ファ イル QB. 
BI を イン クル ー ド する 必要 が あり ます . な お セッ ト ア ッ プ プロ グラ ム で QB 環 
境 を 構築 し た 場合 , この QB. BI は Quick BASIC Ver.4.2 で は , サブ ディ レク 
トリ BIN の 中 に 入っ て いま す が , Ver.4.5 か ら は , サ ブ デ ィ レ クト リ INCLUDE 
の 中 に 入っ て いる の で パス 名 を 注意 し な けれ ば いけ ませ ん . 


' や TNCLUDE: 'a:\TNOLUDE ぎ \QB.BT' 


この よう に 本 プロ グラ ム で は , Ver.4.5 用 に な っ て いま す . も し , Ver.4.2 を お 
使い で し た ら , パス 名 壮 INCLUDE を 侍 BIN に 変更 し て くだ さい . ま た Ver.4.5 を お 
使い の 人 で も , サ ブ デ ィ レ クト リ INCLUDE を AF ドラ イブ 以外 に セッ ト ア ッ プ し て 
ある 場合 は , ドラ イブ 名 を 書き 直し て くだ さい 。 

(3) CALL INTERRUPTX 命 令 を 使用 する 場合 . メ タコ マン ド $INCLUDE は , 
CALL INTERRUPTX 命 令 が 書か ん れ て いる モジ ュー ルレ ベル コー ド に 書か な 
けれ ば な り ま せん . 





この プロ シー ソ ャ の な 働き は . 入力 ファ イル か ら テ キス ト フ ァイル が な く な 
る まで 1 行 ず つ 読 み 込 ん で き て 。 行 番号 を 付加 し て 印字 きせ る も の で す 。 1 行 の 
印字 数 が 設定 され た 数 値 よ り 長 い 場合 に は ,。 自動 的 に 複数 行 に 分 け て 印字 する よ 
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うに し ます . また その 際 ,“ 語 "が 分 割 さ きれ な いよ うに 行 を 切断 する よう に し て い 

ます . イン デン ト が つけ られ た 行 を 複数 行 に 折り 曲げ て 印字 する 場合 は , その イ 

ン デ ント を くず き な い よう に し て あり ます 。 これ に よっ て 。 印 字 きれ た プロ グラ 

ム の 可読性 は か な り 良 く な る と お も われ ます . 

も う ひ と つと て と と で 注意 し た こと は 。 QB の エディ タダ は 。 ほか の BASI じ の エディ カタ 
(た と えば N。。-BASIC) と 違っ て , 1 行 が 255 文 字 あ っ て 。, プ ログ ラム を 入力 し て いっ 
て も 画面 上 で 80 文 字 で 折れ 曲がら ず , 横 に スク ロー ル し て いき ます . し た が っ て , 
1 行 が 長い プロ グラ ム を ほか の エディ タ で 入力 し て いく と 複数 行 に な る も の で も , 
QB の エディ タ 上 で は あく まで 1 行 と な り ま す 。 そ の よう な プロ グラ アム を この 清 
プロ グラ ム で 印字 する と, 当然 複数 行 に わた っ て 印字 きれ ます が , QB の エディ タ 
上 で は あく まで 1 行 で ある と いう こと を 認識 させ て お く < 必要 が あり ます . そこで 。 
この プロ グラ ム で は ,。QB 上 で エエ 和 行 の プロ グラ ム を 複数 行 に 分 け て 印字 し た 場合 に 
は , 行 を 切断 し た 部 分 の 最後 に , 継続 の 印 と し て アン ダー スコ ア (__) を つけ る こ 
と に し まし た ., また 。 その 場合 プロ グラ ム に つけ た イン デン ト を くず さき さ な い 工夫 
も し まし た 。 

で は , SUB プ ロ シ ー ジ ャ PR の 具体 的 な 説明 に は いり ます . 図 2.1.3 に この プロ 
ジー キャ の プロ ー デ チャ ー ト 玉 志 し まず, 

(1) 入力 と 出力 ファ イル を それ ぞ れ オー プン し ます . 

(2) 行 番号 を 表す 変数 Inum, 印字 行 数 を 表す 変数 incnt, 印字 ペー ジ を 表す 変数 
page の 初期 値 を それ ぞ れ 設定 し ます . 

(3) 1 ペー ジ 目 の タイ トル を 印字 する SUB プ ロ シ ー ジ ャ TitlePr を コー ル し ます . 
タイ トル は DOS の シス テム コー ル に よっ て 得 ら れ た ファ イル 名 。 ファ イル の 
作成 日 時 , 印刷 時 の 日 時 お よび ペー ジ で す . 

(4) 次 に この プロ シー ジャ の 主要 な 作業 ルー プ に 入り ます . 前 判定 の DO UNTIL 
ルー プ の 終了 条件 は 。 テキ スト ファ イル の 終了 を 見 つけ た と き に な り ま す . 

(5) DO ルー プ 内 で は , 最初 に テキ スト ファ イル を 1 行 分 , 入力 ファ イル か ら 文 
字 型 配列 prfile$ に 読み 込み ます 。 

SUB プ ロ シ ー ジ ャ ProcTab を 呼び ます . 

QB エディ タ は , エディ ト 時 に [TAB! キ ー を 押し た 場合 、 チ テキ スト ファ イル に は タ 
ブ コ ー ド (&H9) を 埋め 込む の で は な く , スペ ー ス を 挿入 し ます , し か し , QB 以外 
の エディ タ で QB の ソー スプ ログ ラム を 書い た 場合 . チ テキ スト ファ イル 中 に タブ コ 
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c.| (Quick BASIC ソ ー ス リス ト 清 書 プ ログ ラム 


は 一 ま 〒 キ ーー ド 


イル OPEN 


@ 較 2.1.3 
が だ 


Inum を Inum 十 1 
ノア ァイル か ら 
] 行 読み 込む 

| Poco 


行 番号 : を 行 の 


財 





先頭 に つけ る 








LEN(prfile$(i) False 


>ClInum 
True 


、 


js False 
rUe 
| mmw 


ncnt て lincnt 圭 ] 


True 


| sw 1 






行 の 折れ 曲がり 
位置 キー スペ ー ス 


True 


前 方 へ スペ ー ス を 捜す 


] 行 を Z 行 に 分 ける 





ば ー1 十 1 


True 


ファ イル CLOSE 
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ー ド が 入っ て いる か も し れ ま せん プロシージャ ProcTab は , 読み 込ん だ テキ ス 
ト フ ァイル に タブ コー ド が 存在 し た 場合 は , スペ ー ス に 置き 換え る 働き を し ます . 
(6) 1 行 分 の テキ スト ファ イル の 先頭 に 行 番号 を 付加 し ます . その 前 に テキ ス 
ト フ ァイル の 最初 の 文字 が , 字 下 げ さ れ て いる 場合 , 行 を 分 割 し た 場合 に そ 
の 情報 が 必要 に な る の で , 変数 indent に あら か じ め 求 め て お きま す . そ の と き 
に は FUNCTION プ ロ シ ー ジ ャ IndentN を 使用 し ます . こ うす る こと に よっ て , 
1 行 を 複数 行 に 分 割 し て 印字 し て も , イ ン デ ント を 朋 す 心配 は な く な り ま す . 

(7) 取り 込ん だ 1 行 が , 印字 幅 の 設定 値 clInum よ り 長 い 場 合 に は , 前 判定 の DO 
WHILE ルー プ の 中 で 複数 行 に 折り 曲げ ます . 短 い 場 合 は この ルー プ は 実行 き 
れ ま せん . ルー プ 内 で は 。 文字 列 の clnum 番 目 で 折り 曲げ る わけ で す が , ちょ 
うど その 位置 が “ 語 の 内 部 の 場合 , 言い 換え る と その 位置 が スペ ー ス で な 
い 場 合 は 。 そこ で 折り 曲げ る と 。 リ スト が 読み に くく な り ま す , そこ で 。 そ 
の 位置 か ら 1 文字 ずつ 前 の 位置 が スペ ー ス か どう か 調べ て いき , 見 つか っ た 
と ころ が “ 語 の 切れ 目 で すか ら そ こ で 折り 曲げ ます . プロ グラ ム で は 無限 
DO ルー プ を 使っ て 。 ス ペー ス が 見 つか っ た と ころ で 。EXIT DO 文 で ルー プ 
を 抜け ます . 

折り 曲げ る 位置 が 見 つか っ た ら 。, 配 列 prfile$ の 番目 と i 十 1 番目 に 行 を 分 け て 代 
入 し ます . ュ 二 1 番目 の ほう へ 代入 する と き は , 番目 の 行 の 先頭 の 文字 列 の イン デ 
ント を 考慮 し ます . また , ji 番 目 の 行 の 最後 に は , 行 が 継続 する 印 で ある アン ダー 
スコ ア (_) を 付加 し ます 、 

次 に i 十 1 行 目 の 最初 の 文字 列 の イン デン ト を プロ シー ジャ IndentN を 使っ て 調 
べ て お きま す .i の 値 を 1 イン クリ メン ト し て DO ルー プ の 最初 に 戻り ます . 折り 曲 
げた 次 の 行 が さら に clnum よ り 大 きい 場合 は ,。 さら に 同じ 処理 を 繰り 返し ます が , 
そう で な い 場 合 は この ルー プ ブ か ら 抜 け ま す . 

(8 ) ルー プ を 抜け た 時 点 で i の 値 は 分 割 し た 行 数 を 示し て いま す 。 そこ で FOR/ 
NEXT ル ー プ を 使っ て 分 割 し た 行 を , 1 行 ず つ SUB プ ロ シ ー ジ ャ LnPrint を 
使っ て 印字 し て いき ます . プ ロ シ ー ジ ャ LnPrint に つい て は 次 の 項 で 詳説 し ま 
す . 

1 ペー ジ に 印刷 し て いる 行 数 は 変数 lincnt で カウ ント し て いま す の で , 設定 初 期 
値 rwnum か ら 2 引い た 値 に な っ た ら , 改 ペ ー ジ 処理 する SUB プ ロ シ ー ジ ャ FFeed 
を 呼び ます . 
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(9) テキ スト ファ イル の 終わ り を 見 つけ る と この DO ルー プ は 終了 し ます か ら 。 
ファ イル を クロ ー ズ し て この SUB プ ロ シ ー ジ ャ を 終わ り ま す . 





プロ シー ジャ LnPrint で は , プロシージャ PR か ら 引 数 oneline$ で 渡さ きれ て きた 1 

行 分 の 印字 文字 列 の 印字 処理 を 行い ます . 

この 処理 の 概要 は , 1 行 の 先頭 か ら 1 文字 ずつ 順に 調べ て いき , ある 文字 列 が 
特定 の キー ワー ド の 場合 に は 強調 文字 で 印字 し , それ 以外 の 場合 は その まま 印字 

する も の で す . 

し か し , 例外 が あっ て , コ メン ト 行 を 示す アポ スト ロフ ィ の あと と , ダ ブル ク ォ ー 

ト に は さま れ た 文字 列 は , た と え キ ー ワ ー ド で あっ て も 強調 文字 に し ませ ん . 

図 2.1.4 に この プロ シー ジャ の フロ ー チ ャ ー ト を 示し ます . 処理 の 詳細 は 次 の と 

お り で す . 

(1) 変数 rt、qf お よび kflag は , 現在 調べ て いる 文字 が 。 アポ スト ロフ ィ の あと 
か 。 ダブ ルク ォ ー ト の 間 か 。 ある い は 漢字 コー ド に は さま れ て いる か を 表す 
フラ グ で す . 1 行 の 処理 に 入る 前 に , すべ て の フラ グ の 内 容 を False に 初期 化 
し て お きま す . 

(2) 一 番外 側 の ルー プ は , 前 判定 の DO WHILE ルー プ で 処理 し ます . 1 行 の 文 
字数 を あら か じ め 関 数 し LEN で 求め て お き , その 文字 数 分 印字 処理 が 終わ っ た 
ら ,。 この ルー プ を 抜け て 改行 命令 を 出し , この プロ シー ジャ の 処理 を 終わ り 
ます . 

( 3 ) ルー プ 内 で は , MID$ 関 数 を 使っ て 1 文字 ずつ 切り 出し て 処理 し て いき ます . 

最初 に 関数 lsShiftJis で , その 文字 が 漢字 コー ド か どう か 調べ ます . も し , 
漢字 コー ド な ら kflag が True に な り ま す . 

( 4 ) 次 に この 1 文字 が アル ファ ベッ ト か どう か を 調べ ます . これ に は 関数 ItsAlpha 
を 使い ます . この 結果 に よっ て 処理 が 2 つ に わか れ ま す . 

(5) 文字 が アル ファ ベッ ト で な いと き は ,。 た だ 単に その 文字 を 印字 し ます . そ 
の 際 。 そ の 文字 が アポ スト ロフ ィ で あり , か つ フ ラグ qf が False の と き は フラ 
グ rf を 反転 し て お きま す . 

同様 に , 文字 が ダブ ルク ォ ー ト で ,。 か つ フ ラグ rf が False の と き は , フ ラグ 
qf を 反転 し ます . 
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@ 図 2.1.4 SUB LnPrint の フロ ー チ ャ ー ト 


フラ ク グ rf,qf,kflag に False を セッ ト 


llen 二 LEN(oneline$) 
jU 


False 


5 


True 


机 


j デ 」 す 1 


ch$ 一 MID$ (oneline$,」1) 


シフ ト JIS コ ー ド の チェ エッ ク 


False ch$ が 
英文 字 か 


True 






ch$ ニ の" True 
か つ 


NOT qf 






後続 文字 列 を 切り 出 


rf ご NOT rf| | し て 28 に 代入 


True 


qNOT qf 







ch$=CHR$G4) 
か つ 
NOT rf 
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調べ た 1 文字 が アル ファ ベッ ト の 場合 は , 続く 文字 列 の 切り 出し を 行い ま 
す 。 文字 変数 a$ の 内 容 を ヌル に し て お いて , 後続 の 文字 を 次 々 と 調べ , アル 
ファ ベッ ト ,。 数 字 , 型 宣 言 文字 以外 の 文字 が 現れ る まで , a$ に 足し こん で い 
きま す . 

(6) フラ グ rf と qf を 調べ 。 こ の どちら か 。 ま た は 両方 が True の 場合 は as を その 
まま 印字 し ます . そ う で な い 場 合 ,. すなわち 両 フ ラグ と も False の と き は 。a$ が 
キー ワー ド か どう か 関数 SearchKey で 調べ ます . キー ワー ド の 場合 は プリ ン 
タ の 強調 文字 コー ド ESC ! と 解除 コー ド ESC” に a$ を は さん で 印字 し ます . 

そう で な いと き は , ふつ う の 文 字 で 印字 し ます . この よう な プロ グラ ム の 
中 か ら の プリ ンタ の 制御 に つい て は 次 項 で 説明 し ます . 






BASIC の プロ グラ ム を 書い て いて , プリ ンタ を ソフ トウ ェ ア で いろ いろ 制御 し 


た いと 思う こと が あり ます 。 た と えば 。 こ の プロ グラ ム で は 。 印字 文字 サイ ズ を 
エリ ー ト サイ ズ に する と か , 特 定 の 文字 を 強調 文字 で 印刷 する と か し て いま す が , 
これ ら は すべ て BASIC の プロ グラ ム 中 か ら プ リン タ を 制御 し て いま す . 

具体 的 に は , 各 プリ ンタ 固有 の コン トロ ー ル コー ド を マニ ュ ア ル で 調べ , PRINT 
文 で その コー ド を プリ ンタ に 送っ て や り ま す . 

PC-PR201 系 の プリ ンタ を 使用 し て エリ ー ト サイ ズ で 印刷 させ る に は ,[[ESc]] 
[[ 放 コード を 送っ て や り ま す 。 この プロ グラ ム で は , 


PRINT #2, CHR$S(27) + "EE" 


の よう に し て いま す . ここ で は 印刷 出力 を ファ イル 出力 し て いる の で PRINT #2 
の よう な 命令 を 使っ て いま す が 。 印字 に LPRINT 文 を 使っ て いる 場合 は , 


LPRINT CHR$(27) + "BE" 


の よう に 書き ます ., 27 は ESC コ ー ド の 値 で す . 

また , ある 文字 列 を 強調 文字 で 印刷 する 場合 は , 開始 の コー ド が [[gmc]]+ [| 
で , 終了 の コー ド が [[ESc]] 二 [中 ] です から, プロ グラ ム の よう に , も し 文字 列 a$ を 
強調 文字 で 印刷 し た い 場 合 は , その 前 後 を 開始 と 終了 の コー ド で は さん で , 
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PRTNT #, COHR$(27) + "! ” :a$: CHR$(27) + OHR$(34) 


の よう に 書き ます . 

し た が っ て , PC-PR201 系 以外 の プリ ンタ を 使っ て , この プロ グラ ム を 利用 する 
場合 に は 。 自分 の プリ ンタ の コー ド を マニ ュ ア ル で 調べ て プロ グラ ム 中 の これ ら 
の 部 分 を 書き 直し ます . 


eZ この 2 だい eneoooooCoococcoooixcnoo KerroooooyceccNeo 









つい の 


OCS 


この 関数 は , 文字 列 を 印刷 する とき, その 文字 列 が QB の キー ワー ド か どう か 検 
索 す る も の で す . 

キー ワー ド は は, あらかじめ 配列 keyw$( ) に アル ファ ベッ ト 順 に 格納 され て お り , 
調べ た い 文 字 列 が 検索 で きた と き に は , その キー ワー ド が 格納 され て いた 配列 の 
添字 を , 見 つか ら な い 場 合 は , その 文字 列 に 最も 近い キー ワー ド が 格納 され て い 
る 配列 の 添字 を 返し ます . 

文字 列 の 検索 法 は 2 分 法 ( バ イナ リサ ー チ ) と 呼ば れる 手法 を 用 いて いま す . 図 
2.1.5 に プロ シー ジャ の フロ ー チ ャ ー ト を 示し ます . 

2 分 法 は , ソー ト さ れ た 配列 要素 を 検索 し て いく 効率 的 な 方 法 の ひと つ で , 調 
べ る 範囲 を 順に , 前 後に 2 分 し て いく 方 法 で す . 

簡単 な 例 を 用 いて 2 分 法 の 概略 を 説明 し まし ょ う . 

キー ワー ド が 8 個 だ と し て 配列 keyw$ (0) て keyw$(7) に 次 の よう に 格納 され て 
いる と し ます . 


CALL DATA 


LAD_ 
L1 1 2 13 





これ より 変数 h と t の 初期 値 は それ ぞ れ h= 0 と {= 7 と な り ま す . 

まず , 検索 する 文字 列 が “DATA", つま り a$= “DATA" の 場合 に つい て 考え 
て み ま す 。 

この ルー プ は, 後 判定 型 の DO/LOOP UNTIL で , ルー プ の 脱出 条件 は , h>t が 
True に な っ た と き で す 。 
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P.| Quick BASIC ソ ー ス リス ト 清 書 プ ログ ラム 
@ 剛 2.1.5 FUNCTION SearchKey の フロ ー チ ャ ー ト 


h0 
{KeySIZe 


Ii に (h 十 1)\2 


(() 全 a$ 


keyw$(() 全 a$ 





True 


SearChKey ぐ | 


| 回 目 の ル ー プ 


1i<- (h 十 t) ぎ 2 
で すか 5。 1 すす (0 十 7) 学 2 る と な っ て 。 3 に 3 の 代入 きれ ます 、 
し た が っ て , keyw$ (3)="END” 全 “DATA” で すか ら 

t 三 2 と な り ま す . 

h<t で すか ら ル ー プ か ら は 受 出 し ませ ん . 
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P 回 目 の ル ー プ 


』*ー (0 十 2) 学 2 と な っ て 。 jij に は 1 が 代入 きれ ます 。 
し た が っ て 。 keyw$(1) = “CALL" ミ “DATA” で すか ら 
hh や どなり ます , 
h<t で すか ら ル ー プ か ら は 腕 出 し ませ ん . 
1i*=- (2 十 2) 演 2 と な っ て 。j に は 2 が 代入 され ます ず 。 
し た が っ て , keyw$(2)= "DATA" ミ “DATA”" で すか ら 
h= ニ 3 と な り ま す . 
今度 は ,。 h>t と な り ま すか ら ル ー プ を 腕 出し ます . 
関数 SearchKey は i の 値 2 が セッ ト さ れ て 返さ れ ま す . 
この よう に 検索 する 文字 列 が 配列 keyw$( ) の 中 の 要素 と 一 致す る 場合 は , その 
配列 要素 の 添字 が 関数 より 返っ て きま す が , 一 致す る も の が な い 場 合 は どう で し ょ 
うか 。 そこ で , 次 は 文字 列 “NEXT” を 検索 する 場合 に つい て 考え て み ま す . 


1 回 目 の ル ー プ 


fe ( 乱 二 も り 生 人 
で すか ら 。 1 て (0 十 7) 清 2 と な っ て 。 1j に は 3 が 代入 きれ ます 。 
し た が っ て ,。 keyw$(3) = “END" ミ “NEXT ” です から 

h 三 4 と な り ま す 。 

h<t で すか ら ル ー プ か ら は 腕 出 し ませ ん . 

1 4《4 十 す ) ま は と か な っ て 、 3E は 5 が 横 入 きれ ます 
し た が っ て ,。 keyw$(5) = “REM" 竹 “NEXT で すか ら 

ト 王 4 となり ます . 

h<t で すか ら ル ー プ か ら は 脱出 し ませ ん . 

1 ュ <- (4 士 4) 演 2 と な っ て 。 1 に は 4 が 代入 きれ ます . 
し た が っ て , keyw$(4) = “IF = “NEXT ですから 

h 王 5 と な り ま す . 

今度 は 。h>t と な り ま すか ら ル ー プ を 腕 出 し ます . 
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. uick BASIC ソ ー ス リス ト 清 書 プ ログ ラム 
関数 SearchKey は i の 値 4 が セッ ト さ れ て 返さ れ ま す . 





し た が っ て 。 この 場合 は 検索 文字 列 ヒ と キー ワー ド は 一 致し ませ ん で し た が 。 
索 し た 文字 列 に 近い キー ワー ド の 配列 要素 の 添字 が 返さ れ た こと に な り ま す . 





この プロ シー ジャ は 。 配列 file$( ) 中 に ある ファ イル 名 の 中 か ら 。 カ ー ソ ル 操 作 
に より ,。 1 個 の ファ イル を 選択 する も の で す . この 中 で 


a$ = CHR$B(0, 改 H48) 


の よう な 。 従来 の BASIC で は 見 られ な い 文 が 現れ ます . これ は , 次 の よう な 理由 
に より ます 。 

PC-9801 で は ,。 矢印 キー は 。 2 バイ ト の コー ド と し て 因 り つけ られ て いま す ., 上 
位 バ イト は ゼロ で ,。 下位 バ , 48H の 場合 ] キ ー, 50H の 場合 は キー, 4BH 
の 場合 キー, 4DH の 場合 呈 キ ー で す . この 情報 は マニ ュ ア ル (Ver.4.5 の Handbook 
396 ペ ー ジ , ASCII 文 字 コ ー ド お よび Ver.4 .2 の Statement & Function Reference 
432 ペ ー ジ , キ ー ボ ー ド スキ ャ ンコ ー ド ) に 書か れ て いま す 。 

数 INKEY$ は , 2 バイ トコ ー ド の キー( 漢 字 や ファ ンク ショ ン キ ー な ど ) が 
され る と , 2 バイト 文字 と し て 値 を 返す よう 拡張 され て いま す . 

関数 CHR$( ) も , 2 バイ ト の 文字 を 表現 で きる よう に 拡張 きれ て いま す . その 

引数 は CHR$ (上 位 , 下位 ) と な り ま す . 





ま か の お も な 関数 の 働き に つい て 簡単 に 説明 し て お きま す . 


UNCTTON TsDigit(c$) 

パラ メー タ c$ が 数 字 列 か どう か 判定 

UNOCTTION TsVar (D$) 

パラ メー タ D$ が 変数 名 と 型 宣 言 子 か ら な り た っ て いる か どう か 判定 し ます . 
UNCTTON TsAlfa(a$) 

パラ メー タ a$ が 英文 字 だ け で 構成 され て いる か どう か 判定 し ます . 


12? 


EUNOCTTON TsShiftJis (ch$) 
パラ メー タ ch$ が シフ ト JIS コ ー ド か どう か 判定 し ます . 
FEUNOCTTON DispYear%(d%), 
DispMonth%(d%), 
DispDay%(d%) 
MS-DOS の シス テム コー ル で 得 ら れ た , ファ イル の 作成 年 月 日 ビッ ト 情 報 パ 
ラメ ー タ d% か ら , 整数 値 と し て 年 月 日 を 得る 関数 で す . 
FEUNOCTTON DispHour%(d%), 
DispMint%(d%), 
DispSecd%(d%) 
MS-DOS の シス テム コー ル で 得 ら れ た , ファ イル の 作成 時 分 秒 ビ ッ ト 情 報 パ 
ラメ ー タ d% か ら , 整数 値 と し て 時 分 秒 を 得る 関数 で す . 


g.1.5 実行 ファ イル の 作成 と 使用 万 法 


タグ 


Quick BASIC は , それ 自身 の 環境 内 で プロ グラ ム の 開発 や 実行 が で きま す が , 
この 清書 プロ グラ ム の よう な 性 格 の プロ グラ ム は , QB の 環境 か ら 離 れ て , MS-DOS 
の 外部 コマ ンド の よう な 使い 方 を する と 便利 で す . 

本 節 で は , MS-DOS の コマ ンド ライ ン か ら 直 接 実行 可能 な EXE フ ァイル の 作成 
方 法 と , 清書 プロ グラ ム の 使用 方 法 を 述べ ます . 

まず EXE フ ァイル 作成 方 法 を 具体 的 に 説明 し まし ょ う . 

(1) QB 環境 内 に プロ グラ ム FINELST. BAS を ロー ド し ます . 

( 2) メニ ュー か ら [R/ 実 行 ] を 選び ます . サブ メニ ュー が 表示 され ます か ら [X/ 
実行 ファ イル の 作成 ] を 選び ます . こ こ で 注意 し て ほし い の は , メニ ュー が Full 
メニ ュー に な っ て いる こと を 確認 し て くだ さい .。 も し そう な っ て いな いと き 
は , メニ ュー で [O/ オ プシ ョ ン ] っ [F/Full メ ニュ ー] を 選択 し て お きま す . 

(3) 実行 ファ イル 作成 画面 が 表示 され ます . ここ で 大 切な 確認 事項 は 実行 ファ 
イル 名 と 実行 ファ イル の 型 で す . 実行 ファ イル 名 は , ディ フォ ルト で ロー ド 
し て きた プロ グラ ム の ファ イル 名 に 拡張 子 EXE を つけ た も の が 表示 され て い 
ます . この 例 で いう と , FINELST. EXE と 表示 され て いる は ず で す . その ま 
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.1| Quick BASIC ソ ー ス リス ト 清 書 プ ログ ラム 


まで よけれ ば 変更 する 必要 は あり ませ ん が , 変更 し た い 場 合 は [TAB」 キ ー で カー 
ソル を 移動 させ た の ち フ ァイル 名 を 変更 し て くだ さい . 
実行 ファ イル の 型 は 2 種類 あっ て [X/ ラ ンタ イム 分 離 型 ] と [A/ 独 立 型 ] が あり ま 
す . ディフォルト は ラン タイ ム 分 離 型 で す が , DOS の コマ ンド の よう に QB の 環境 
か ら 完 全 に 分 離さ せ た い と き は 独立 型 を 選択 し て くだ さい .。 すべ て の オプ ショ ン 
を 決定 し た ら 同 キー を 押し ます . コン パイ ル と リン ク が 行わ れ EXE フ ァイル が 作 
成 さ れ ま す . 


次 に 。 作成 し た EXE フ ァイル の 使用 方 法 に つい て 説明 し ます . 
(1) FINELST.EXE フ ァイル が 入っ た フロ ッ ピ ィ デ ィ ス ク を セッ ト し て , そ の 
ドラ イブ を カレ ント ドラ イブ に し ます .。 
また 。 室 いた ドラ イブ に , リ スト を と り た い テ キス ト フ ァイル が 入っ た ディ 
スグ を セッ ト し ます 
(2 ) 次 に MS-DOS の コマ ンド ライ ン か ら EXE フ ァイル の ファ イル 名 を 入力 し ま 
す 。 だ と えば ,。 カレ ント ドラ イブ が AF ドラ イプ と する と 。 


A>HTNELST 


と 入力 し ます 。 
(3) 画面 に リス ト し た い フ ァイル の ドラ イブ と パス 名 を 聞い て きま すか ら 答 え 
ます . B ド ライ ブ の ルー トディ レク トリ で あれ ば 


B : 
と 入力 し ます . BB ドラ イプ の サ プ デ ィ レ クト リ LIST の 中 の ファ イル で あれ ば . 
B : \ 上 LTST 


と 入力 し ます . カレ ント ドラ イブ の カレ ント パス の 場合 は 。 何 も 入力 し な い 
で キー を 押し ます . 

(4) 画面 に ファ イル 名 の 一 覧 表示 が で ます か ら , リ スト し た い フ ァイル 名 を カー 
ソル キー を 移動 させ て 選び , [キー を 押す と 印字 が 始ま り ま す . 


131 


Na-BASIU ソ ー ス リ 人 ト の 


。2 Quick BABICA の 
き P..] 概 要 


N 


い 








パー ソナ ルコ ンピュータ PC-9801 シ リー ズ 上 で 動く BASIC と し て 広く 使用 され 
て いる の は , N。。-BASIC で す .,。 これ は マイ クロ ソフ ト 社 の MBASIC 5 に 準じ た 仕 
様 を 持っ て いま す が , 分 岐 先 に ラベ ル が 使用 で きる 点 が 改良 され て いま す . 

QB も 同じ マイ クロ ソフ ト 社 の BASIC で あっ て , MBASIC の 上 位 互換 性 を 持た 
せ て あり ます . し た が っ て , MBASIC で 書か れん た プロ グラ ム は 原則 的 に は QB 上 で 
動く と 計 え ます 。 

し か し , せっ か く ,。BASIC か ら わ ずら わし らい 行 番号 が と れ た の に , それ ら を そ 
の まま 残す の は , 気分 的 に 愉快 で は あり ませ ん . 

また , N。。-BASIC は , MBASIC と も 細部 で は 仕様 が 異な る の で ,。 そ の まま で は 
動き ませ ん . 

本 章 で は , N。。-BASIC で 書か れん て アス キー セー ブ さ れ た ソー スプ ログ ラム を , 
QB で 動く ソー ス フ ァ イル に 変換 する トラ ンス レー タ を 作成 し て み ま す . と は 言っ 
て も , N。。-BASIC は 独自 に 発展 し て きた 部 分 も あり ます し , 機種 依存 , た と えば 
画面 制御 と か , グラ フィ ックス な どの 部 分 は 形式 的 に は 似 て いて も , その 働き を 
解読 し な く て は 正しく 変換 で きま せん の で 。 適当 な と ころ で と ど め て お きま す , 
その 意味 で は 。 完全 な トラ ンス レー タ で は な く て , 変換 支援 ソフ ト で す . 

本 章 で の プロ グラ ミン グ の 基礎 は , 主として , N。。-BASIC の 構文 を 解析 し , そ 
れ を QB の も の に 置き 換え る 点 に あり ます . その た め の 考 え 方 や , 実際 に 作成 され 
た モジ ュー ル に つい て 説明 し ます 。 
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c.r Nss-BASIC じ ソー スリ スト の Quick BASIC へ の 変換 


NN .C. 仕様 


は じ め に 。, 仕様 に つい て 検討 し ます . そ の た め に は N。。-BASIC と QB の 比較 を し 
て み ま す . 


ーー | www |  * 


予約 語 引数 の 与え 方 が 両者 で 異な る も の 
La SCREEN, BEEP, LOCATE, WIDTH, CLS 
CONSOLE VIEW PRINT 
名 剖 . (小数 点 ) は 名 前 の 一 部 。 は フィ ー ル ド を 表す . 
了 と し て 使用 可 


注 1) Ni。-BASIC の ラベ ル の 使い 方 
100 GOTO *FLAG1 
110 ceoeeeeee 
120)  O 
200 *FLAG1 
Z1[ が 

注 2)OB の ラベ ル の 使い 方 
GOTO FLAG2 


多 


の 


















この よう に , QB と N。。-BASIC の 最も 大 き な 違 い は , 行 番号 の 有無 と 行 ラ ベル の 
書き 方 で す . 

N。。-BASIC は , QB に 比較 し て , 構造 的 な 制御 文 が きわ め て 少な いた め , どう し 
て も GOTO, GOSUB 文 が 多用 され る こと に な り ま す . し た が っ て 。QB で は 行 番 
号 が 不用 で す が 。N。。-BASIC で は GOTO, GOSUB の 行き 先 が 行 番号 で 指定 され 
て いま す の で , その 行 番号 を 不用 意 に 取り 去る よう な こと が あっ て は な り ま せん . 

ま た, 行き 先 が 行 ラベ ル で 指定 され て いて も 。 N。。-BASIC の 行 ラ ベル 書式 を そ 
の まま 使え ませ ん か ら , QB で は すべ て の 行 ラ ベル を 書き 換え る 必要 が あり ます . 
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これ ら の 作業 は , 機械 的 に で きる こと で は あり ます が , N。。-BASIC の よう に GOTO 
や GOSUB が 多い プロ グラ ム で は , ひと つの も れ も な く , 人 の 手 に よっ て ファ イル 
を 書き 換え る の は ,。 か な り 骨 の お れる 仕事 と いえ る で し ょ う . 

N。。-BASIC と QB で は , 画面 制御 や グラ フィ ックス 関係 も 細か く 仕 様 が 異な り ま 
す . し か し , こち ら は 機械 的 に 変換 と いう わけ に は いき ませ ん . た と えば , LOCATE 
文 ひ と つと っ て も 。 N。。- BASIC で は , 


LOOATE 双 座 標 , Y 座 標 ( 文 ,Y マ > =0) 
LOOATE YY 座標 , 座標 (Y, 文 > ニテ 1) 


に し な けれ ば な り ま せん . 

これ だ け 見 て いる と, XX 座標 と Y 座 標 を 交換 し て 1 加え る だ け で , 変換 は 簡単 に 
すみ そう で す が 。 実際 に は そう は いき ませ ん . 

X と Y 座 標 が 数 値 で 与え を られ て いる 場合 は よい の で す が , 数 式 で 与え を られ て いる 
と ,。 いち ど に 処理 が 複雑 に な っ て し まい ます . 

そこ で 今回 の コン バー タ は , これ ら 画 面 制 御 や グラ フィ ックス 関係 の 変換 は 一 
切 行わ ず 。 処理 は 機械 的 に 行 を る が か な り 面 倒 な うえ , 変換 も れ を 起こ し や すい 
不用 な 行 番号 削除 。 お よび 行 ラ ベル の つけ 変え 処理 を 行う も の と し ます . 

な お , 変数 名 中 の ピリ オド の 扱い で す が , 先ほど の 表 か ら も あき ら か な よう に , 
N。。-BASIC と QB で は 意味 が 異な り ま す . N。。-BASIC で は ユー ザ 定 義 型 が な い の 
で 。, フ ィ ー ル ド と いう 概念 が な いこ と と 。 QB に お いて は 単純 変数 名 に ピリ オド が 
含ま れ て いて も エラ ー を 生じ な いこ と か ら 。 その まま と し まし た 。 

も う ひ と つ 。 N。。-BASIC が QB と 大 きく 異な る も の に エディ タ が あり ます . N。。 
-BASIC の エディ タ は , 1 行 が 長く な る と ディ スプ レイ 上 で 見 に くく な る の で , そ 
れ を 防ぐ た め に 行 の 途中 に LF コ ー ド を 挿入 し て , 改行 が で きる よう に な っ て いま 
す . し か し , QB の エディ タ で は , この LF コ ー ド を 行 の 終わ り と 判断 し て し まう た 
め に , 1 行 を 複数 行 と 判別 し て し まい ます . し た が っ て , コン バー ト を 行う 場合 
1 行 の チ テキ スト の 中 に LF を 見 つけ た ら , そ の コー ド を 取り 去り 。 そ の あと の スペ ー 
ス を 除去 する 処理 が 必要 に な り ま す . 

以上 , 仕様 を まとめ る と , 


134 


c.Cc Nas-BASIC ソ ー ス リス ト の Quick BASIC へ の 変換 


(1) THEN, ELSE, GOTO, GOSUB 文 で 行き 先 に 指定 され た 行 番号 を 除い 
て , 残り の 行 番号 を 取り 去る . 
(2) 行 ラ ベル が あっ た ら ,。 QB の 書式 に 書き 換え る . 
(3) 1 行 の 途中 に LF コ ー ド が ある 場合 , それ を 取り 去り 不用 の スペ ー ス を 除く . 
(4) コメ ント 行 や 。 ダ ブル クォート に は さま れ た 文字 列 中 は , 変換 作業 を し 
な い 。 
と サ ます , 


P.P.3 ブロ グラ ム 概 要 


タグ 


図 2.2.| に プロ グラ ム の ゼネ ラル フ プロー を 示し ます 。 

コン バー トブ プロ グラ ム を 作成 する 場合 , そ の ひと つの 方 法 と し て , 文字 列 配列 
変数 を 用 意 し て お いて ,。 変換 前 の ソー ス フ ァ イル を いっ た ん すべ て そこ へ 読み 込 
ん で 。 変換 処理 を 行う こと が 考え られ ます 。 

し か し , この 方 法 だ と 変換 する ソー ス フ ァ イル と 同じ 大 き さ の 配列 を 用 意 し な 
けれ ば な ら な いた め 。 変換 で きる ファ イル の 大 き さ は パソ コン の メモ リ の 大 きき さ 
に 依存 し て し まい ます . 

その 問題 に 対処 する た め , ここ で は ,。 変換 作業 を テキ スト の 1 行 単位 で 行い , 
作業 が 終了 し た ら 1 行 単位 で ファ イル 出力 する 方 法 を と り ま し た . 

この 方 法 の 欠点 は , 最後 の 行 ま で 処理 を 施し た あと に , その 結果 に よっ て 再び , 
最初 の 行か ら 別 の 処理 を 施す 必要 が 生じ た 場合 ,。 ま た ファ イル の 読み 込み と 書き 
出し を し な けれ ば な ら な いこ と で す .。 そこ で 。 この 変換 プロ グラ ム で は , 1 回目 
の 作業 が 終了 し た ら , いき な り QB フ ァイル と し て 出力 し な いで ,。 いっ た ん テン ポ 
ラリ ー フ ァイル に 格納 する 方 法 を と り ま し た . そし て , 最後 の 行 まで 作業 が 終了 
し た ら , 次 は テン ポラ リー ファ イル を 読み 込み , 2 回 目 の 変換 処理 を 行っ た あと , 
QB ファ イル と し て 出力 する ,。 2 パス 方 式 を 採用 し まし た . 

それ で は , それ ぞ れ の パス に お ける 変換 作業 を 簡単 に 説明 し ます . 1 パス 目 で 
は 。 N。。-BASIC の テキ スト ファ イル を 1 行 読み 込ん で , 

(1) 行 の 途中 に LF コ ー ド が あれ ば 取り 除く . 

(2 ) THEN, ELSE, GOTO, GOSUB の あと に 行 番号 が 続い た 場合 は 。 そ の 
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@ 罰 2.2. | ゼネ ラル フロ ー チ ャ ー ト 








Nss-BASIC の 
テキ スト 1] 行 読み 込み 


テン ボラ リー ファ イル 
へ 書き 出し 


OB ファ イル へ 
書き 出し 


テン ポラ リー 
ファ イル の 消去 
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か 
Os 
ン o 
>J 


RB 0 


3 
に 
ン o 
> 


F-F Ns-BASIC じ ソース リス ト の Quick BASIC へ の 作 換 
行 番号 を 配列 に 格納 し て お く . 
( 3 ) THEN, ELSE, GOTO, GOSUB の あと に 行 ラ ベル が 続い た 場合 は 。QB 
の 行 ラ ベル 書式 に 変換 する . 
と いっ た 処理 を 行っ た あと 。 1 行 ず つ フ ロッ ピ ィ ディ スク 上 の テン ポラ リー ファ 
イル に 書き 出し て いき ます . これ を テキ スト ファ イル が な く な る まで 行い ます . 
次 に 2 パス 目 に 移る 前 に , 行 番号 を 格納 し た 配列 の 内 容 を 番号 の 小さ い 順 に ソー 
ト し , さら に 行 番号 が 重複 し な いよ うに し ます . 
2 パス 目 で は 。 1 パス 目 で いっ た ん 格納 し た フロ ッ ピ ィ デ ィ ス ク の テン ポラ リー 
ファ イル か ら , 逆 に 1 行 ず つ テ キス ト フ ァイル を 読み 出し て , 
(1) 読み 出し た 行 の 行 番号 と 配列 に 格納 し て ある 行 番号 を 順に 比較 し て いき , 
一 致す る 行 番号 が 存在 し た 場合 は , その 行 番号 は 消去 し な い . 一 致す る も 
の が な い 場 合 は , その 行 番号 を 消去 し て スペ ー ス に 置き 換え る . 
(2) その 行 が N。。-BASIC の 行 ラ ベル (* ラ ベル 名 ) で あっ た 場合 は 。QB の 行 ラ 
ベル (ラベ ル 名 : ) に 置き 換え る . 
と いっ た 処理 を 行っ た あと , 1 行 ず つ 。 指定 し た 出力 ファ イル に 書き 出し て いき 
ます .。 これ を テン ポラ リー ファ イル の 中 の テキ スト ファ イル が な く な る まで 行い 
ます . 最後 に . テン ポラ リー ファ イル を 消去 し て , 処理 は 終了 し ます . 


P.P.4 主要 な ブロ シー ジャ の 説明 
N 


リス ト 2.2.| に プロ グラ ム の 全 リ スト を 示し ます . 
プロ グラ ム の 中 の 主要 な プロ シー ジャ に つい て 順に 説明 し て いき ます . 





モジ ュー ルレ ベル コー ド で は , 最初 に 。 N。。-BASIC の プロ グラ ム が 格納 され た 
入力 ファ イル 名 と , QB に 変換 し た プロ グラ ム の 出力 ファ イル 名 の 入力 要求 を 行い 。 
それ ぞ れ inpdev$ と outdev$ に 代入 し ます . 

モジ ュー ルレ ベル コー ド 中 心 部 で は , 最初 の DO UNTIL/LOOP が 1 パス 目 の 処 
理 を , 次 の DO UNTIL/LOOP が 2 パス 目 の 処 理 を 行っ て いま す . 両 パ ス の 間 で , 
配列 の ソー ト な ど を 行う SUB プ ロ シ ー ジ ャ LnSort を コー ル し ます . 
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@ リ スト 2.2.1 ブログ ラム FILECONV. BAS の 全 リ スト 


の ② ら oo ココ の の ム < で の は う ピ 


も う ト う トト う うー テー テテ テー ビビ ビビ 
* う トー の 〇 の の や の の 〇 の に 3 〇 の の 心 〇 の (もう 


t う トウ う ト う ト 5 う トウ トウ う ト も 
《 の CD -) で (1 お 


くく (やら の の の 
〈 ぐ や 3 の で の お で や らら ビ 


ppmmwonmnnm ぬ た た ふた たよ ふふふ ム た 
の > 1 CCtS う の の の - コ の の らら < ら う ト うつ の 
人 や まや ネ 夫 本 ま 和 _ ボ ゃ ドコ まま ネネ を し 兵 、】 に 3 w\ 電 


は 
0 に し 表 に 


58 : 


で > の ぅ む び ! 
も う つぐ 〇 


で で? 
に ー 


の 〉 〇 の 〉 の 〉 の 
で C ゝ Ch て うら 
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+ー 
の 


う 
を ふ 


C う 
し JR. 肖 。 し 2 に ER KR ERR 


くう 
っ: 


DECLAREF SUB TakeWword (Cond! , OneLine$, ch$, a$, ]!,。 1len!) 
DECLARE SUB LineC (OneLlne$ ) 

DECLARE SUB RemoveLn (OneLine$, 1num!(), 1p!) 

DECLARE SUB LnSort (1num!(), 1np! ) 

DECLARE FUNCTION IsDigit! (C$) 

DECLARE FUNCTION IsVar! (b$) 

DECLARE FUNCTION IsAlpha! (8$) 

DPECLARE SUB SearchJmps (OneLineS, 1num( ), 1b) 

DECLARE SUB LnMem (OneLinesS, nhn, 1}, Inum(), 1D, af ) 


・ DIHMK 1num(100) 
・ CONST False = 0, True = NOT False 


CLS 
INPU7 NM 8 2 8 AS ! と の ァイル 名 を 入力 し て くだ さい . ", inpdev$ 
INPUT "変換 徐 の QB フ ァ イ ルト ん 力 し て 〈《 だ きい 。 ": outdev$ 
dUmmYS = “A:dU 和 mmY" 
OPEN jnpdevS FOR INPUT AS 
OPEN dummyS FOR OUTPUT AS #2 
ID = + 
DO UNRTTL EOF(1) 
LINE INPUT 守 , OneLine$ 
CALL LineC(OneLine$ ) 
CALL SearchJmps(OneLine$, 1num(), 1P) 
PRINT #2、 OneLine$ 
LOOP 
4D = 4D ・ 1 
: CLOSE 紀 , #2 
CALL LnSort(1num(), 1P) 
OPEN dummyS FOR INPUT AS # 
OPEN outdevS FOR OUTPUT AS #2 
DO UNRTIL EOF(1) 
LINE INPUT #1, OneLineS$ . 
CALL RemoveLn(OneLine$, 1num(). 1p) 
PRINT OneLine$ 
PRINT #2, OneLineS 
LOOP 
CLOSE #] 。 #2 
KILL “A:dummY" 
: END 


p.P Na。-BASIC ソ ー ス リス ト の Quick BASIC へ の 変換 


67・ 

68・ FUNCTION 1sA1pha (8$) 

69: 

70: TF ((a$ >= “A" AND a$ <= “2Z") OR (a$ >= "a" AND aS <= "z ) ) THEN 
71 : TsAlpha = Truc 

が を ELSE 

プイ IsAlpha = False 

74 : END jF 

ナオ ? 

76・ END FUNCTION 

る 

78: FUNCTION IsDigit (Cc$) 

イラ 。 > 

80・: TF (c$ >= “0" AND c$ <= 9”) THEFR 
81 : IsDigit = True 

82・ ELSE 

83: EsDigit = False 

84・ END jF 

85・ 

86: END FUNCTION 

87: 

88: PUNCTION IsVar (b$) 

89・ 「 

90: TF ((b$ >= “A" AND bS$ <= “2Z") OR (b$ >= "a" AND DS <= “"Z") OR (b$ >= “0 "AND DS <= 


*9") OR bD$ = “." OR b$ = “"!" OR DS = "が OR DS : “$ OR b$ = "% ) THEN 
91 ・ TsVar = TFTue 


92・ EISE 
93: TsVar = False 
94 : END JF 
95 : 
96: END FUNCTTON 
97・ 
98: SUB LineC (OneLine$) 
99: 
100: 1c = INSTR(OneLine く . CHR$(10) ) 
101・ 
102・ DO WHILE 1c <> 0 
103: SC = 1 
104 : ch$ = MID$(OneLine$, 1]c ・ sc, 1) 
105: DO 胃 ILE ch$5 : " 
106 : SC = SC + 1 
107: chS = MTDS(OneLine$, 1c ・ Sc, 1) 
108: 「 LOOP 
rr OneLine$ = LEFTS(OneLineS, 1c - 1) +・ ” " ょ MIDS(OneLine$, 1c + SC) 
111 : 1C = INSYR(OneLine$, CHRS(10) ) 
112: 
133< LOOP 
114: 
115: END SUB 
116・ 
117・ SUB LnMem (OneLine$,. j, 11en, 1num(), 1P, af ) 


118: 

119: DO WHILEj< 1len 

120: 1 w }* } 

121 : ch$ = MIDS(OneLine$, ], 1) 


122: 

123 JHF ch$ = "| TIERN EXIT DO 
124: ' 
の > TF IsDigit(ch$) THEN 

126 : 

まま Cond = 1 

128: CALL TakeWord(Cond, OneLine$. chS、aS, }, 11en) 
129: | 

130: _ 1num(lp) = VAL(aS) 
131 : “ 

1 きる 2 210 = jp * } 

133: ' ' 

134・: IF af THER EXIT DO 
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135 : ] 
136 : ELSETF (ch$ = “*”) THEN 


137・ 

138: Cond = 4 

139: CALL TakeWord(Cond, OneLine$, ch$, a$, ], 11en ) 
140・: 

141 ・ wlen = LEN(a$) 

142・: 8$ = RIGHT$(a$. wljen - 1) ・ ““ 

143: OneLine$ = LEFTS$(OneLine$, ] - wien) ・ a$ + MID$(OneLine$, ] ・ 1) 
144: 

145: TF af THEN EXTIT DO 

146 : 

147: ELSE 

148: JF IsAlpha(ch$) THEN 

149: 

150・ Cond = 2 

15】 : CALL TakeWord(Cond, OneLine$, ch$, a$, ], 11en ) 
まあ 2 ・ 

153 : 』F a$ = “GOTO" OR a$ = “GOSUH" THEN 

154 : af = True 

155・ CALL LnMem(OneLine$. j. 11en, 1num(), 1D, af) 
156 : EXIT 

157・ ELSE 

158: EXIT DO 

159・ END IF 

160・: END IF 

161 : END IF 

162: LOOP 

163 : 

164: END SUB 

165・ 

166: SUB LnSort (lnum( ) , 1np ) 

167 <: 

168: ′ 1]F Inum(1) = 0 THEN EXIT SUB 

169・ 

170: 0 

まま Change = False 

まう 2・ FOR k = 1 YO }np - 1 

173・ ま F ]num(k) > 1num(k + 1) TIEN 

174 : SWAP 1nhum(k), 1num( ト + 1 ) 

5 : Change = True 

176・ END IF 「 


まま を NEXT k 

178:・ LOOP UNTIL NOT change 

+79・ 

ま 准 * 1 w 1 

181: DO 

182: IF }1num(i) = }num(i + }) THEN 
183・ FOR }) = ji す O 1np - 1 

184 : InuM(]) = 1num(] + 1) 
185: REXT } 

186: InD = InD - 1 

187・: ELSE 

188: 3 】 人 は 

189: END F 

190: LOOP UNTIL 1 = 」np 

1491 ・ 

192: END SUB 

193・ 

194: SUB RemoveLn (OneLines, inum(), 1p) 
195・ 

196: 11en = LEN(OneLine$) 

も で 信 抽 半井 ' 

198: 

199:  '--ーーーー- プロ セス ] ------ 
200: 

201: DO WHILE 1 < 1ien 

202: 0 

203・ ChS = MID$(OneLine$, ], 1) 
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204 : 
205・ 
206: 
207: 
208: 
209: 
210: 
211 : 
よ な い 
2213・ 
214: 
"うむ 
216: 
2 7 : 
218: 
メサ > 
220 : 
レタ 季 * 
の 
ピス 


224 : 
25 : 
226 : 
227: 
2268・ 
229: 
230・ 
の は は よく 
の か 
か 
234・ 
235 : 
236 : 
23( * 
238: 
239・ 
240・ 
241 : 
242 : 
243 : 
244・ 
245・: 
246・: 
247: 
248: 
249: 
250 : 
251 : 
252 : 
253 : 
254・ 
き 9 : 
256 : 
257・ 
258: 
259 : 
260 : 
261 : 
262 : 
263・ 
264・ 
265・ 
266 : 
267・ 
268・ 
269・ 
270・ 
まま 


C.C Naa-BASIC ソ ー ス リス ト の Quick BASIC へ の 変換 


IF IsDigit(ch$) THEN 


Cond = 1 
CALL TakeWord(Cond, OneLine$, ch$, a$, }, 11en) 


EXIT DO 
END IF 
LOOP 


an = VAL(a$ ) 
DUMT]AaZ = False 
FOR 】 = 1 TO jp 
JF an = Inum(i) THEN 
nhUMTf18E = TruUe 
EXIT FOR 
END JF 
REXT 1 


F NOT numflag THEN 
OneLineS = STRINGS(LEN(a$), " “) + MIDS(OneLines, ] + 1) 


END IF 


DO WIELE ] < jen 
) は 
Ch$ = MID$(OneLines, ], 1) 
TF ch$ <> “ "THEN 


まま Ch$ = "* THEN 


Cond = 3 
CALL TakeWord(Cond, OneLine$, chS、aS, ), 11en ) 


wlen = LEN(8a$) 


a$ = RIGHTS(aS, wien - 1) + "|" 
OneLines = LEFTS(OneLines, 1 - wlen) ・ as + MIDS(OneLineS, ) ・ 1} ) 


EXIT 
ELSE 
EXIT DO 
END jF 
ERND IF 
LOOP 


FEND SUB 
SUB SearchJmps (OneLines. 1num(), 1p) 


Tf = faise 
df = Fal8Se 


11en = LEN(OneLine$) 

) = 0 

DO WHILE 】 < jlen 
)* }+ ょ 1} 
ch$ = MID$(OneLines, }, 1 
TF IsAlpha(ch$) THEN 


Cond = 3 
CALL TakeWord(Cond, OneLine$. chS, asS, ], 11en ) 


ITF NOT (rf OR qf) TEEN 


JF a$ = "REK THENR 
rf = NOT rf 
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ィ GOTO L1 
272・ | 
273: END JF 
2 TF a$ = “GOTO" OR a$ = "GOSUB" OR a$ = “THEN" OR a$ = “ELSE" THEN 

1 Af = FalSe 
7 IF a$ = “THEN" OR a$ = "ELSE THEN af = True 
278: CALL LnMem(OneLine$。 ], 11en, }hum() 1p. af ) 
279: END JF 
280: END IF 
ELSE 


283: TF ((ch$ = "“") AND (NOT qf)) THEN rf = NOT rf 

レー 、 各線 科 ま 

285 : 。  ((chs = CHRS(34) ) AND (NOT rf)) THEN qf = NOT qf 
286 ・: END IF 

287: LOOP 


289: END SUB 
291: SUB Takeword (Cond, OneLines, chs$, a$。 j。11en) 


293・ 2 

294・ DO 

295: 8a$ = aS + Ch$ 

296 : 3 WW 1 * 】 

297・ Ch$ = MEDS(OneLines, 3・ 1 ) 

298 : SELECT CASE Cond 

299・ _ CASE 1 

300: F (NOT lt OR (〕] > jlen ) ) THER EXIT DO 
CASE 2 


302: 。 正 (NOT 1sA1pha(ch$) OR (】 > 11en) ) THEN EXTT Do 


304: CASE 3 
305: 。 ザ (8OT IsVar(ch$) OR (】 > 11en) ) THEN EXIT po 


307 : " 避 (NOT (1sDigit(chs) OR isAtphatchs) OR (chs に の ) OR (] > 11enl ) 
「 THEN EXTT DO 





912: 
3 まき 


1 パス 目 で は , LINE INPUT 文 で N。。-BASIC の テキ スト ファ イル 1 行 を , 文 
字 列 変数 OneLine$ に 読み 込み ます . 

SUB プ ロ シ ー ジ ャ LineC と SearchJmps を コー ル し て , 1 パス 目 の 処 理 を 行っ た 
あと , テン ポラ リー ファ イル で ある A : DUMMY に 1 行書 き 込 み ま す . 

これ を N。。-BASIC の テキ スト ファ イル が な く な る まで 行い ます . 

1 パス 目 が 終了 し た ら 。 ファ イル を クロ ー ズ し ます . 

2 パス 目 に 移る 前 に , 配列 の 処理 を 行う SUB プ ロ シ ー ジ ャ LnSort を コー ル し ま 
す . 

2 パス 目 で は テン ポラ リー ファ イル か ら 1 行 読み 込み , SUB プ ロ シ ー ジ ャ Remove 
Ln を コー ル し ます . 
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C.C Nas-BASIC ソ ー ス リス ト の Quick BASIC へ の 変換 





1 行 の 中 に , も し LF コ ー ド (CHR$ (10)) を 見 つけ た ら , その コー ド 目 身 と その 
コー ド の 後方 の スペ ー ス を すべ て 除去 する 処理 を し ます . 

これ は N。。-BASIC の エディ タ で は 。, プ ログ ラム を 画面 上 で 見 や すく する た め に 。 
LF コ ー ド を 入れ て 見 か け 上 改行 し て いま す が 。 QB で は , その まま に し て お くし と , 
LF が 挿入 され た 行け は 1 行 と 見 な され な いと いう 問題 が 起こ る か ら で す 

この プロ シー ジャ で 処理 すれ ば , 1 行 に いく つ LF コ ー ド が 存在 し て も すべ て 取 
り 除 く た め 。 1 行 が 複数 行 に 化け る と いっ た こと を 避け る こと が で きま す . 





まず 1 行 の チ テキ スト ライ ン よ り GOTO, GOSUB, THEN, ELSE の 4 つの キー 
ワー ド の 切り 出し を 行い ます . 

rf と qf の 2 つの フラ グ は , 2.1 の 清書 プロ グラ ム で 用 いた も の と 同じ で 。rf は コ 
メン ト 行 の , df は ダブ ルク ォ ー ト に は さま れ た 文字 列 に 対す る チェ ッ ク を 行っ て い 
導 す 。 

コメ ント 行 は , キー ワー ド REM の 場合 と , アポ スト ロフ ィ () の 場合 の 両方 検知 
で きま す . | 

コメ ント 行 の 中 , お よび ダブ ルク ォ ー ト の 中 の GOTO, GOSUB, THEN, ELSE 
の あと の 行 番号 お よび 行 ラ ベル は , プロ グラ ム の コン バー ト の 場合 の 対象 行 ラ ベ 
ル よ り 除 外し ます . rf と qf の 働き を 図 2.2.2 に 示し ます . 

も し , 4 つの キー ワー ド GOTO, GOSUB, THEN, ELSE が 検出 され た ら , そ 
れ ら を THEN, ELSE と GOTO, GOSUB の 2 つの 場合 に 分 け ま す . 

THEN お よび ELSE の あと に は , 行 番号 ( 行 ラ ベル ) が 直接 置か れる 場合 と GOTO 
行 番号 ( 行 ラ ベル ), GOSUB 行 番 号 ( 行 ラベ ル ) が 置か れる 場合 の 2 と お り が あり 
ます . 

そこ で あと の 処理 で 区 別 が 必要 な た め , THEN か ELSE が 検出 され た 場合 は , フ 
ラグ af を True に し て お きま す . 

そう し て お いて , SUB プ ブ プロシージャ LnMem を コー ル し ます ., この プロ シー ジャ 
は 次 項 で 説明 し ます . 
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@Z.Z.Z SUB SearchJmps の フロ ー チ ャ ー ト (rf と qf を 中 心 に ) 


「† で FalSe 


Te-False 










False 


ch$ て 先頭 か ら ] 番 目 の 文 字 


上 EXIT SUB 


False 






ch$ は アル ファ ベ 
ッ ト か 







文字 列 の 
切り 出し 
















ch$ ニ CHR$G4 
NOT rf 


qfNOT qgf 


け *NOT rf 
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C.C Naa-BASIC じ ソー スリ スト の Quick BASIC へ の 変換 





この プロ シー ジャ は , 
(1) GOTO や GOSUB 文 な ど で , ジ ャ ンプ 先 に 指定 され た 行 番号 また は 行 ラ 
ル を 配列 に 格納 する . 
(2) も し , 行 ラ ベル の 場合 は QB の 書式 に し た が っ て , ラベ ル の 先頭 の アス タ 
リス ク を 取り 去り 。 ラ ベル 名 の うし ろ に スペ ー ス を お く .。 
と いっ た 処理 を 行い ます . 

具体 的 に は 。 まず テキ スト ライ ン か ら 1 語 切 り 出 し ます . 

も レコ ロン ( : ) で あれ ば 。, マルチ ステ ー ト メン ト に お ける 文 の 区 切り で すか ら 。, 
DO ルー プ よ り 抜 けた あと 。 SUB プ ロジ シー ジャ か ら も 抜け ます . 

も し 先頭 が 数 字 な ら ば 行 番号 と 考え られ る の で , その あと の 連続 し た 数 字 を 切 
り 出し ます . 行 番号 は 文字 列 と し て 切り 出さ れる の で , 関数 VAL を 使っ て 数 値 に 
変換 し た あと に , 配列 Lnum の lp 番目 に し まい , lp の 値 を 1 増加 し て お きま す . も 
し フラ グ af が True な ら こ の ルー プ を 抜け ます . 

4 つの キー ワー ド THEN, ELSE, GOTO, GOSUB の あと の 先頭 が アス タリ ス 
ク (※) の と き は , 行 ラ ベル と 考え られ ます か ら ,。 つづ いて ラベ ル 名 の 切り 出し を 
行い ます ,. ラベ ル の 切り 出し が 終わ っ た ら 先 頭 の アス タリ スク (*) を 取り 去り , 
ラベ ル の うし ろ に スペ ー ス を 挿入 し ます . も し フラ グ af が True な ら こ の ルー プ を 
抜け ます . 

最後 に , 英字 だ け か ら な る 文字 の 検出 を し ます . 

THEN, ELSE の 直後 は 行 番号 (ラベ ル ), GOTO 文 , GOSUB 文 ,。 さ ら に その ほ 
か の 実行 文 が くる 可能 性 が あり ます . この ELSE 節 で は , その 中 で GOTO 文 か GOSUB 
文 が きた と き に SUB プ ロ シ ー ジ ャ LnMem, すなわち 自分 目 身 の プロ シー ジャ を 再 
帰 的 に 呼び 出し ます . その 場合 , フ ラグ af は True に セッ ト し て お きま す . 

と と で プラ グダグダ 族 尼 つ WT 語 明 し て お まき まし ょ う 。 

IF 文 に は , 


ろ 


TE 条件 THEN 行 番 号 


と いう 場合 と, 
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TE 条件 THEN GOTO 行 番号 


と いう 場合 が あり ます . 
また GOTO と GOSUB 文 に は 。, 


ON GOTO 行 番号 1( 行 ラベ ル 1), 行 番号 2( 行 ラベ ル 2), …*, 


行 番号 n( 行 ラベ ル n 


と いっ た 複数 の 分 岐 先 を 示す 場合 が あり ます . 

し た が っ て , THEN と ELSE の 場合 , その 直後 に 行 番号 が くる 場合 は 1 個 に 限ら 
れ ま す の で ,。 それ 以後 を 調べ る 必要 が あり ませ ん . ま た GOTO と GOSUB 文 に つい 
て 考え て も , THEN や ELSE の あと に 続い た 場合 も , と りう る 行 番号 は ひと つ だ け 
で す の で それ 以後 を 調べ な く て も よい わけ で す . し た が っ て , この 条件 を わけ る 
意味 で フラ グ af を 用 意 し て お き , いま 述べ た 場合 に af を True に し て お く こ と に よ 
り 。 行 番号 ( 行 ラ ベル ) を ひと つ だ け 調 べ , それ を 配列 に 格納 し 終わ っ た ら , SUB 
プロ シー ジャ LnMem を 抜け する よう に し て お きま す . 









SS 


この サブ ルー チン は , 1 行 の テキ スト ライ ン を 受け 取り , 1 パス 目 で , GOTO 
や GOSUB 文 な ど で 指 定 され た 行 番号 を 残し て , 行 番号 を 取り 去る 処理 を し ます . 
さら に ,。 行 ラベ ル が N。。-BASIC と QB で は 書式 が 異な る の で , その 処理 も 行い ます . 

まず 。SUB プ ロ シ ー ジ ャ TakeWord を コー ル し て ,。 1 行 の チ テキ スト ライ ン よ り 
行 番号 を 文字 列 と し て 切り 出し , 組み 込み 関数 VAL を 使っ て 数 値 に 変換 し ます . 
そし て numflag を Falss に し て お いて ,。 1 パス 目 の 処 理 で , 消去 不能 な 行 番号 を 格 
納 し た 配列 Inum( ) の 内 容 と 比較 し て いき ます . 

も し 。 一 致す る 行 番号 が 存在 し た 場合 に は , フラ グ を 反転 し て ルー プ を 抜け ま 
す . そし て 。 フ ラグ mnumflag が False。 つ まり GOTO 文 な どの 行き 先 に な っ て いな 
く て も , プロ グラ ム の 制御 に 関係 な い 行 番号 は 削除 し て , その 代わ り に スペ ー ス 
に 置き 換え ます . 

次 に 行 ラ ベル の 変更 を 行い ます . つま り , N。。-BASIC の 行 ラ ベル は “* ラ ベル 
名 ”" で す が , QB の 行 ラ ベル は “ラベ ル 名 : " で す の で , 変換 し ます . 

この 変換 も SUB プ ロ シ ー ジ ャ TakeWord を 使っ て ,。 アス タリ スク (*) で は じ ま 
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c.Cp Naa-BASIC ソ ー ス リス ト の Quick BASIC へ の 変換 


る ラベ ル 名 を 検索 し 。 も し 存在 すれ ば アス タリ スク を 取り 去り 。 ラ ベル 名 の 最後 
編 コ ロン ( : ) を つけ 加え ます 。 









1 行 の チ テキ スト ライ ン か ら 特 定 の 文字 列 を 切り 出す プロ シー ジャ で す 。 与え る 
パラ メー タ と し て は , 1 行 の テキ スト ライ ン が お さめ られ た 文字 列 oneline$。 テキ 
スト ライ ン の 注目 文字 列 ch$ と その 先頭 か ら の 文字 数 jj」 テキ スト ライ ン の 文字 数 llen, 
切り 出す 文字 列 の 条件 区 分 を 示す Cond が あり ます . 

これ に より , パ ラメ ー タ a$ に 条件 Cond に よっ て 検出 され た 文字 列 が 代入 され た 
あと ,。 返さ れ ま す .。 また , j も 書き 換わり ます . 

条件 Cond は , この プロ シー ジャ の 場合 1 か ら 4 まで の 数 字 を と り , 1 が 数 字 だ 
け か ら な る 文字 列 。 2 が 英文 字 だ け か ら な る 文字 列 。 3 が 変数 名 と 考え られ る 文 
字 列 。 4 が ラベ ル 名 と 考え られ る 文字 列 に 対応 し て いま す . 









この プロ シー ジャ は 。 1 パス 目 の 処 理 で 。GOTO 文 な どの 行き 先 に 指定 され た 
行 番号 が 格納 され て いる 配列 要素 を 。 2 パス 目 で 処理 し や すい よう に 行 番号 の 小 
さい 順に 並べ 換え 。 さら に 重複 する 行 番号 は 取り 除き ます . 


pp jg ブロ グラ ム の 実生 方法 


プロ グラ ム を 実行 きせ る と ,N。。-BASIC の ファ イル 名 を 聞い て きま すか ら 。 入 
放し ます 。 " 

次 に , 変換 後 の QB フ ァイル の 出力 先 を 聞い て きま すか ら , ファ イル 名 を 答え る 
と , 変換 の 作業 が 始ま り ま す . 

実行 例 と し て , リ スト 2.2.2 に 示し た , N。。-BASIC で 書か れ た 待ち 行列 の シミ > ュ 
レー ショ ンプ ログ ラム を QB に 変換 し た も の を , リス ト 2.2.3 に 示し ます . 

この プロ グラ ム は , グラ フィ ックス や 画面 制御 の 命令 を 使っ て いま せん か ら , 
変換 され た QB プロ グラ ム は ,。 た だ ち に 実行 可能 で す 。 

な お , この 変換 プロ グラ ム を 使う 場合 , と くに 注意 し な けれ ば いけ な い 点 は , 


多 


ZZ ン 





14/ 


リー ファ イル を A ド ライ ブ に 作成 する の で , AF ドライブ に , 変換 
前 の N。。-BASIC の ソー ス フ ァ イル と ほぼ 同じ 大 き さ の ディ スク の 空き が 必 
要 な こと 。 

変換 する N。。-BASIC の ソー ス フ ァ イル は , アス キー セー ブ さ れ て いな け 
れ ば いけ な いこ と . 
の 2 遍 で すず 。 
@ リ スト 2.2.2 Nss-BASIC の ソー ス フ ァ イル 例 


し 8] デ ま 有 ウ 


(2 ) 


* まま 
人 


・ 1000 
・ 1010 


(の 〇 の ココ の の 〇 いさ 心 C ら CC ビ 


1060 
・ 1070 
・ 1080 
10900 





: 1110 
: 20 
) 1 し 
・ 1140 
・ 1150 
・ 1160 
+ 1170 
) 1190 
: 1190 


LM 


: 1100 


save "henkaten.n88",a 


"25-Sep-89 


_ 邊 ュ 1. NH) : 
ュー * 


待 ち 行 
DTM 19(500) 


) 角 の と! 。 ょ レー ジリ 』 シメ (変化 点 方 式 ) 


: 1020 

: 1030 TEND = 50000! " 「' ッ ミュ レー シレ ョ ン 時 間 

:1040 A・12 平均 到着 時 間 間 隔 
1090 上 19 平均 サー ビス 時 間 


RANDOMIZE 

TW = 0: STIME = 0: TT = 0: TQ(0) = 
TT - As LOG(RND) 
- 『 * LOG(RND): T2 ・ 19(1) 


WHILETT <= TEND 


1 > 12 THEN 1190 
TFO<=1THEN 





、。 7 1 
「 TO 1210 








GOSUB 2000: 下 1Q(@) く T1 THEN 1180 
1 “ 


23. 1200 ー 
24: 1210 GOSUB 3000: NINZU = NINZU + 1: T2 = TQ(1) 
25: 1220 WEND 


・ 1230 
・ 1240 
を まま の 
・ 1260 
・ 1270 
・ 1280 
・ 2000 
2010 
・ 2020 
・ 2030 
・ 2040 


・ 3000 
1 3010. 


: 300 
・ 3040 
: 3050 


・ 3070 
・ 3080 
・ 3090 


・ 2050 


・ 3060 


ーー 屯 着手 定時 


LM 


を 


ャ 


SE = -H * LOG([ 
_STIME = STIME キ SE 
_ 相 ・ 

FOR 1 = 


PRINT “カウ ンタ ー 衝 働 率 = 
PRINT 
PRINT "平均 待ち 時 間 。 


・ STIME / 定 
TW / NINZU 


du 


19(Q) ・ 7Q(Q - ) - 4・ IO6(N 





ーー サー ビス の 開始 





WT (T 0 TeG)) 
06(RND) 





TT + SE 
0 96 
TQ(1) = 1Q(T + 1) 
NEXT 1 


bn」 T_ ーー 


48: 3100 
49: 3110 


50・ 


P.P Naa-BASIC ソ ー ス リス ト の Quick BASIC へ の 変換 


RETURN 


リス ト 2.2.3 0B へ 変換 後 の ソ ー ス ファ イル 


! *′ save "henkaten.n88",a '25-Sep-89 

と 

3・ "ーー-- 待ち 行列 の シミ ュ レ ーション (変化 点 方 式 ) 
4・ DI 靖 TQ(500 ) 「 

き * に | 

6・ TEND = 50000! "シミ ュ レ ーション 時 間 
ん A > 12 平均 到着 時 間 間 隔 
8: HH + 10 平均 サー ビス 時 間 
9・: 6 

10: RANDOMIZE 

1 WW = 0: STIME = 0・ TT > 0: TO(O) = 

42 : Q = 1: TQ(1) = TT - A * LOG(RND) 

3・ f1 = TT -Hw LOG(RND)・ T2 = TQO(1) 

14・ 

5・ WTLE T[ <= TEND 

16・ TFT1 > T2 THEN 1180 

47 TF Q <= 1 THEN GOSUB 2000 

18: 村 サン 

19・ GOTO 1210 
20・: | | 

21: 1180 GOSUB 2000: IF TQ(Q) < T1 THEN 1180 
2 は 1 = 』1 
23: ] | 
24: 1210 GOSUB 3000: NINZU = NINZU + 1: 2 = TQ 人 1 ) 
25・ WKND 和 
6 : 

27 : PRINT "カウ ゥ ウン ター 本 働 率 = : STIME / TT 

2 お ・ PRINT 

29: PRINT "平均 待ち 時 間 =": TW / NINZU 

30・ END 

31 : 1 ーー 

32: 2000 '"---- 到着 予定 時 諸 

は * 1 

34・ 0 = Q+r11 

95: TQ(Q) = TQ(Q - 1) - A * LOG(RND) 

36・ REKTURN 

37・ 3 

38: 3000 '"---- サ ービス の 開始 

39・ 8 

40: 本 = 1W* (本 - 10(1)) 

41 ・ SE = -H * LOG(RND) 

42・ STIME = STIME + SE 

43: 1 = 本 + SE 

44・: FOR ! = 0 TO00 
45: TO(L) > TO(iE ) 1| 
46: NEXT [ 
よ ・ 0 =Q - 1 
48・: RETURN 

49: 

50・: 
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カ 


ノ フ / トー ソナ / 単語 
の 


P.3.1 パー ソナ ル 上 単語 帳 の 概要 


QB に よる 応用 プロ グラ ム 例 と し て , 単語 帳 の プロ グラ ム を 作成 し て み ま す . 

市 販 の 手帳 タイ プ の 単語 帳 は よく で き て いま す が , 特定 の 分 野 の 単語 の み を 利 
用 する と か , 学習 用 で , 人 に よっ て 必要 と する 語 革 の 範囲 が 異な る よう な 場合 に 
は 適し ませ ん . 

こ で は 。 ユ ー ザ が 単語 登録 を 実行 し し それ を ディ スク ファ イル し て お いて 。, 

使用 する と き に 読み 出し た り 。 プリ ント させ た りす る 機能 を 持つ よう に し ます . 

プロ グラ ミン グ の 中 心 と な る の は , ラ ンダ ム フ ァ イル の 使用 と 2 分 木 検索 で す . 
2 分 木 検索 は ,1.7 で 述べ た 形 の も の は , 木 が アン バラ ンス に な る こと が ある の で , 
ここ で は バラ ンス 木 あ る い は AVL- 木 と 呼ば れる も の を 用 いま す . これ に つい て は , 
2.5 で 詳説 し ます . 


多 


、 プ 


.3.g 単語 帳 仕 様 


グ 


プ 


ュー ザ が 登録 し た 単語 は , AVL- 木 構造 を 持つ ファ イル と し て ディ スク に ファ イ 
ル さ れ ま す が , 登録 や 検索 の た びに ディ スク アク セス を し て いて は , 実行 スピ ー 
ド が 遅く な る 可能 性 が あり ます . そこ 人 で 今回 作っ た 単語 帳 は , ディ スク アク セス 
は 最初 と 最後 だ け に し て ,。 途中 で は ファ イル を メモ リ 上 に お く こ と に し まし た . 
これ に よっ て 。 快適 な スピ ー ド で オペ レー ショ ン が で きま す .。 
記憶 で きる 単語 の 語数 は , ユー ザ が 決め る こと が で きま す が 。 プ ログ ラム 例 で 
は 100 個 に し て あり ます . 登 録 単語 数 を いっ た ん 決め て 辞書 ファ イル を 作り は じ め 
る と , 途中 で 変更 が きき ませ ん か ら 注 意 が 必要 で す ( 最 大 約 380 個 ). 
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Cc.d バ パーソナル 上 単語 

1 語 の 大 き さ は , 英 単 語 の スペ ル が 半角 文字 で 20 文 字 , 訳 が 全角 文字 で 35 文 字 
(半角 で 70 文 字 ) に し て あり ます .。 これ ら は 一 応変 更 が 可能 で す が 。 文字 数 を 増 や 
し た 場合 , ディ スプ レイ 画面 の グラ フィ ックス 古 令 を 大 幅 に 書き 直す 必要 が あり 
ます . 

こ の 単語 帳 で は , 意味 の ほか に アク セン ト も 登録 する こと が で きま す . アク セ 
ント が 不明 な 場合 は , この 項目 を パス する こと も 可能 で す . 

図 2.3.1 に この 単語 帳 の 機能 を 一 覧 し ます . 
@ 図 2.3.1 単語 帳 の 機能 


単語 帳 の 機能 


単語 の 登録 


意味 検索 (和訳 ) 


登録 済み の 早 語 の 訂正 





登録 済み の 単語 の 削除 


新規 辞書 ファ イル の 作成 (辞書 ファ イル の クリ ア ) 


登録 単語 の 表示 (画面 ) 


登録 単語 の 表示 (プリ ンタ ) 





SN p 3.3 操作 方 法 


(1) QB の 環境 に 。 メイ ン モ ジュ ー ル で ある DIC-MAIN. BAS を ロー ド し ます . 
MAK フ ァイル に し た が っ て 。 サ ブ モ ジュ ー ル で ある DIC-AVL. BAS と DIC 
-EDIT. BAS が 自動 的 に ロー ド され ます . また, 実行 ファ イル (EXE フ ァイル ) 
が 作成 し て ある 場合 は , QB 環境 に 入ら ず に , MS-DOS の コマ ンド ライ ン よ り , 
學 の よう に , 


レノン 


トノ 
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> DTC-MATN 


と 入力 すれ ば 実行 が 始ま り ま す . 
(2) プロ グラ ム を 実行 する と 。 ま ず 辞 書 フ ァイル が オプ ー ン され て , 登録 され 
た 単語 が メモ リ に 呼び 込ま れ ま す . ここ で 辞書 ファ イル の ドラ イブ が 一 致し 
な いか , 指定 し た ファ イル “ENGWORD.DIC" が 存在 し な い 場 合 は 。 エラ ー 
メッ セー ジ を 出し て プロ グラ ム は 停止 し ます 。 
この プロ グラ ム で は , 辞書 フ ァイル は B ド ライ ブ に お く よ う に 設定 し て あり 
ます . ド ライ ブ 名 を 変更 し た いと き は , モジ ュー ルレ ベル コー ド の CONST 文 


CONST DicName$ = "B: ERNGWORD. DIO" 


の 下線 部 を , 希望 する ドラ イブ 名 に 書き 換え て くだ さい . 

(3) 単語 帳 プ ログ ラム の 機能 選択 メニ ュー が 表示 され ます ( 図 2.3.2). 各 機能 を 
選択 する に は カー ソル キー を 移動 きせ る か ,。 選択 子 の 前 に つい た 数 字 を 入力 
し て くだ きい 。 

(4) この 単語 帳 を は じ め て 便 用 する 場合 , あ るい は 単語 帳 を 最初 か ら 作り 直 
場合 に は [5/ 新 規 フ ァイル ]」 を 選ん で くだ さい 。 単語 帳 に 1 語 vamrcus 
いと き に は この [5/ 新 規 フ ァイル ] と [8/ 終 了 ] の み が 選 択 可能 で 

[5/ 新 規 フ ァイル ] を 選ぶ と , 図 2.3.3 に 示す よう に 。, mh 間 
いか どう か の 問い 合わ せ が き ます か ら “Y "か “N で 人 答え て くだ さい . は じ 
め て 使用 する 場合 は 古い 辞書 は 存在 し ませ ん の で , この 問い 合わ せ は 。 現在 
使用 し て いる 辞書 を 不用 意 に 消し て し まわ な いた め の も の で す . “Y” を 選択 
する と 辞書 の 初期 化 が 行わ れ た あと , 機能 選択 メニ ュー 画面 に 戻り ます . 

(5) 単語 登録 は メニ ュー より [1/ 単 語 登録 ] を 選択 し ます . 図 2.3.4 に 示す よう な 
単語 登録 画面 が 現れ ます . この 画面 の 基本 構成 は 意味 検索 。 訂正 , 削除 の 各 
機能 の 画面 と 同じ に な っ て いま す . 

まず 。 単語 の スペ ル を 入力 し ます . ここ で ,。“。” (ピリ オド ) を 入力 する と 
[単語 登録 ] 機 能 は 終了 し て , 機能 選択 メニ ュー に 戻る こ と が で きま す . 

スペ ル の 入力 が 終わ っ た ら , キ ー を 押し ます . 次 は アク セン ト の 入力 に 
移り ます . アク セン ト の 入力 は カー ソル キー を 用 いて 。 カー ソル を 左右 に 移 
動き せる こと に よっ て 行い ます . ア クセ ント 位置 の 確定 は 同 キ ー で 行い ます . 
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p.3 パー ソナ ル 上 単語 
e 図 2.3.2 単語 帳 機能 選択 メニ ュー 画面 


ネネ w ネ 電子 単語 帳 機能 選択 メニ ュー ネネ ネ 


199M-9-94 
13:M9:52 


選択 し た い 機能 を カー ソル (1・J ) で 指定 し て くだ さい 。 





@ 較 2.3.3 「 新 規 フ ァイル 」 機能 選択 画面 


規 辞 書 フ ァイル を 作成 し ます 。 
し 生 フ ァイル の 内 は 消さ れ ます . 
し いで すか ? (v/n) 





@ 図 /.3.4 早 語 登録 画面 


ネネ ネネ 里 語 登 裁 ネネ ネネ ネ ポ 


199Mg- り 9-g4 
13: 11 :56 


里 語 の スペ ル を 
( 綱 了 する 時 は ピリ オト 
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(6 ) 


カー ソル は 意味 入力 位置 に 移動 する と 同時 に , 単語 の スペ ル の アク セン ト 位 
置 の 英文 字 が 赤色 に 変化 し ます . 単語 の アク セン ト 位 置 が 不明 で , 入力 を パ 
ス し た い めい 場合 は LEScC]( エ スケ ー プ ) キー を 押し ます 。 単語 の スペ ル は すべ て 碧 
色 の まま , 意味 入力 に 移り ます . 

単語 の 意味 は 半角 で 70 文 字 。 全角 で 35 文 字 入力 で きま す . この 時 点 で 単語 
の ミス スペ ル な ど に 気づき , スペ ル の 入力 に 戻り た いと き は ”"/"( ス ラッ シュ 
半角 ) を 入力 し ます . カ ー ソ ル は 入力 済み の 単語 の スペ ル に 戻り 訂正 が で きま 
す 。 訂正 方 法 は , 基本 的 に は 機能 選択 メニ ュー か ら [3/ 訂 正 ] を 選択 し た 場合 
と 同じ で す の で (7) を 参照 し て くだ さい 、. 

意味 を 入力 し 終わ っ た ら , キー を 押し て くだ さい . 単語 が メモ リ 上 の 辞 
書 フ ァイル に 登録 され た あと , 単語 登録 機能 の 最初 の 画面 に 戻り , 連続 し て 
単語 の 登録 が で きま す . 単語 登録 を 終了 する 場合 は , 単語 の スペ ル を 入力 す 
る 代わ り に ピリ オド (。) を 入力 し ます . 

単語 登録 機能 の 手順 の 流れ を 図 2.3.5 に 示し ます . 

意味 検索 機能 は メニ ュー より [2/ 意 味 検索 ] を 選択 し ます . 図 2.3.6 に 意味 検 


@ 敢 Z.3.5 早 語 登録 手順 
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「 メニュー 」 へ 


意味 の 入力 






False 





辞書 ファ イル 
に 登録 





P.d バ パーソ ナル 単語 


索 画 面 を 示し ます . この 機能 は 市 販 の 電子 辞書 で は メイ ン と な る も の で す . 
この 機能 を 選択 する と , 単語 登録 と ほぼ 同じ 操作 手順 で 登録 され た , 単語 
の 意味 検索 が で きま す ., 手順 の 流れ を 図 2.3.7 に 示し ます . 
意味 を 調べ た い 単 語 の スペ ル を 入力 し て キー を 押せ ば , その 単語 の アク 
@ 図 2.3.6 意味 検索 画面 


ネネ ネネ ネネ 意味 検索 ネネ ネネ ネ 


199M-MS9-M4 
13: の 24:39 


単語 の スペ ル を 人 
ビリ 





「 メニュー 」 へ 









その 単語 は 辞書 に 
登録 され て いる か ? 








"この 単語 は 
登録 され て い 
ませ ん ' 






意味 の 表示 
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セン ト 位 置 の 英字 が 赤色 で 示さ れる と と も に , その 意味 が 表示 され ます . 

入力 し た 単語 が 辞書 ファ イル に 存在 し な い 場 合 は ,「 この 単語 は 登録 され て 
いま せん 」 と いう 警告 メッ セー ジ が ピン ク 色 で 示さ れ ま す . 

アク セン ト 位 置 が 登録 され て いな い 単 語 を 検索 し た 場合 に は , 当然 アク セ 
ント 位置 の 表示 は あり ませ ん . 

意味 検索 も ピリ オド (.) を 入力 する まで 連続 し て 行う こと が で きま す . 

(7) 訂正 機能 は メニ ュー より [3/ 訂 正 ] を 選択 し ます . 図 2.3.8 に 訂正 画面 を ん し 

ます . 手順 の 流れ を 図 2.3.9 に 示し ます . 

まず 。 訂正 した い 単 語 の スペ ル を 入力 し ます . その 単語 が 辞書 に 登録 され 
て いな いと 「 こ の 単語 は 登録 さき れ て いま せん 」 と いう 警告 メッ セー ジ を 出し て , 
スペ ル の 再 入 力 を 要求 し ます . 登録 され て いれ ば その 単語 の アク セン ト 位 置 
と 意味 を 表示 し た あと , どの 部 分 を 訂正 する か 問い 合わ せる サブ メニ ュー が 
表示 され ます か ら , 1^- 4 まで の 数 字 で 答え ます ( 図 2.3.10). 

[1 : 単語 の スペ ル ] を 選択 する と 。 カ ー ソ ル が 単語 の スペ ル の 先頭 に 現れ て , 
エディ ッ ト が 可能 に な り ま す . 

[2: ア クセ ント | を 選択 する と 。 ア クセ ント 位置 入力 が 可能 な 状態 に な り ま 
す の で ,。 カー ソル キー で 位置 を 指定 し た あと , [キー を 押し ます . 

[3 : 意味 ] を 選択 する と 。 カーソル が 単語 の 意味 の 先頭 に 現れ て , エディ ッ 
ト 可能 の 状態 に な り ま す . 

@ 図 2.3.8 訂正 機能 画面 


ョ | 十 玉 玉 閑 ギ 米 


199M-M9-M4 
13: の 8:23 
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r.J バー ソナ ル 上 単語 


[4 : 訂正 終了 ] を 選択 する と , 訂正 機能 は 終了 し て , 機能 選択 メニ ュー 画面 
に 戻り ます . 1 か ら 3 の 機能 は 。 4 を 入力 する まで 何 度 で も 選択 する こと が 
で きま す . また,。 [1 : 単語 の スペ ル ] の 訂正 と [3 : 意味 ] の 訂正 を 選択 する と , 
それ ぞ れ 1 行 エ ディ タ 機 能 が 働き , 文字 の 挿入 , 1 文字 削除 な ど が 自由 に 行 
えま す . 

@ 図 2.3.9 訂正 手順 


」 
ご ro と っ ーー mw 「 メ ニュ ー へ : 


その 単語 は 辞書 に 
登録 され て いる か ? 













~ こ の 単語 は 
登録 され て い 
ませ ぜん 


ー ] 
訓 止 項目 
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@ 図 2.3.10 訂正 機能 の サブ メニ ュー 画面 


計 止 "ネネ ネネ ネ 


199M-S-94 
13: 31:g1 


単語 : indication 


意味 : 指示 、 印 : く 計 天 の > 示 度 





計 正 し た い 項 目 の 番 号 を 人 力 し て くだ さい 。_ 
間 計 の ス ペル 2: ア クセ ント 3: 意味 4: 訂 正 終了 


の 





カー ソル の 移動 は 矢印 キー(( 巳 ), カー ソル 位置 の 文字 削除 は [DEL| キ ー, 
ー ソ ル 位 置 の 左 1 文字 消去 は [BS] キ ー で 行い ます . 文字 の 挿入 は カー ソル 位 
置 に 挿入 され ます . エディ ッ ト の 終了 は [キー に より 判別 され ます . 
訂正 が 終了 する と , 画面 に 「 訂 正 完 了 ] と いう メッ セー ジ が 表示 され ます . 
(8) 削除 機能 は メニ ュー より [4/ 削 除 ] を 選択 し ます . 
訂正 機能 と 同様 。 ま ず 辞 書 フ ァイル より 削除 し た い 単語 の スペ ル を 入力 し 
ます . する と , その 単語 の アク セン ト 位 置 と 意味 が 表示 され た あと 。, 図 2.3.11 
に 示す よう に , 削除 し て よい か どう か 確認 が きま す . “Y” と 入力 する と 辞書 
ファ イル より 削除 され , | 削除 し まし た 」 と いう 確認 メッ セー ジ が 表示 され ま 
す . 削除 し た い 単 語 が 辞書 ファ イル の 中 に 見 つか ら な いと き は | この 単語 は 登 
錠 さ れ て いま せん 」 と いう 警告 メッ セー ジ が 表示 され ます . 
(9) 新規 ファ イル 作成 機能 は ,。 メニ ュー より [5/ 新 規 フ ァイル 作成 ] を 選択 し ま 
す . 
この 機能 は 。 この プロ グラ ム を は じ め て 使う と き と , 辞書 ファ イル を 新 し 
く 作 りな お す と きのみ 使い まほ ます. し た が っ て , 誤っ て この 機能 を 選択 する と , 
大 切な 辞書 ファ イル を 消去 し て し まい ます か ら 注 意 が 必要 で す . 
この 機能 を 選択 する と , ます 現在 辞書 ファ イル が 人 存在 し た 場合 , それ が 消 
去 さ れ て し まう こと を 警告 し て 確認 を 求め て きま す ., 誤っ て この 項目 を 選ん 
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_  C.9 パー ソナ ル 単 語 帳 
で し まっ た 場合 は "N" を 入力 すれ ば 機能 選択 メニ ュー に 戻る こと が で きま す . 
“Y” を 入力 し た 場合 は , 辞書 ファ イル の 初期 化 が 行わ れ , 単語 の 登録 が 可能 
な 状態 に な り ま す . 

(10) 登録 単語 一 覧 表示 機能 は 。 メニ ュー より [6/ 登 録 単語 一 覧 ] を 選択 し ます . 
この 機能 は , 辞書 ファ イル に 登録 され て いる 単語 を 指定 し た 範囲 に お いて , 
アル ファ ベッ ト 順 に ディ スプ レイ 上 に 表示 させ る も の で す . 

この 機能 を 選択 し た ら , まず 表示 し た い 単 語 の 範囲 を 指定 し ます ( 図 2.3.12). 
範囲 の 上 限 と 下限 の アル ファ ベッ ト を 入力 する と , その 範囲 の 頭 文字 を 持つ 
登録 単語 の スペ ル , アク セン ト 位 置 , 意味 が アル ファ ベッ ト 順 に 表示 され ま 
す . 

アク セン ト 位 置 の 表示 は , その 部 分 の 文字 を 赤色 で 表示 する こと に よっ て 
行っ て いま す . ディ スプ レイ 上 の 表示 だ け で は な く 印 刷 し た い 場 合 は , 次 の 
[7/ 印 刷 ] を 選択 し て くだ さい . 

@ 図 2.3.11 削除 機能 に お ける 削除 の 確認 画面 


ネネ ネネ * ネ 削 際 ネネ ネネ ネ 


199M-MS-M4 
13: 32: 4 


里 語 : benefit 


意味 : 利益 、 利得 : 恩恵 


削除 し て よろ し いで すか 。( ツ nm) 





@ 剛 2.3.12 表示 し た い 単 語 の 範囲 指定 画面 


示し た い 単 
人 の 虹 補 の 
最後 の 
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(11) 印刷 機能 は メニ ュー より [7/ 印 刷 ] を 選択 し ます . この 機能 は , 辞書 ファ イ 
ル に 登録 きれ て いる 単語 を , 指定 し た 範囲 に お いて アル ファ ベッ ト 順 に プリ 
ンタ に 印刷 させ る も の で す . 

まず プリ ンタ を 準備 する よう に メッ セー ジ が きま すか ら , プリ ンタ に A4 
用 紙 を セッ ト し て , “Y” を 入力 し て くだ さい 、. 

範囲 の 指定 , お よび 表示 の スタ イル は [6/ 登 録 単語 一 覧 ] と ほぼ 同じ で す . 
た だ し 。 ア クセ ント の 位置 表示 は アン ダー ライ ン に よっ て 行っ て いま す . 

図 2.3.13 に 印刷 例 を 示し ます . 

(12) この プロ グラ ム を 終了 し た い 場 合 に は [8/ 終 了 ] を 選択 し ます .2.3.2 の 単語 
帳 仕 様 の 項 で も 述べ まし た が 。 辞書 ファ イル は 。 プロ グラ ム 実 行 の 最初 に , 
いっ た ん すべ て フロ ッ ピ ィ デ ィ ス ク か ら メ モリ 上 に 呼び 出し て お いて 。 辞書 
ファ イル へ の アク セス は この メモ リ 上 の ファ イル に 対し て 行わ れ ま す 。 そこ 
で プロ グラ ム 終 了 時 に は , メモ リ 上 の 辞書 ファ イル を フロ ッ ピ ィ デ ヂ ディスク に 
書き 戻し て や る 必要 が あり ます 。 終了 操作 は , この 作業 を 行っ て か ら プ ログ 

@ 図 2.3.13 印刷 例 


※ ネ ネネ 登録 単語 リス ト  ※* ネ ※ ※ ポ 
: 不定 福 詞 
arrow 5s 英 


beginner : 移 心 者 。 お よび ビギナー 


bel11ow > 敵 二 な を ん を 。 妹 よ る も 


be1ong ・ 属す る (to), ある 、 い る 
benefit : 利益 、 利 得 : 恩恵 
b1ind : 盲 の 、 目 の よく 見 えな い 
b1ush : 赤面 、 顔 を 赤らめ る 
book 

border 

both 


breathe 
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F.Jd バー ソナ ル 汗 語 


ラム を 終了 させ ます . し た が っ て ,。 終了 操作 を せ ず に パソ コン の 電源 を 切っ 
て し まっ た 場合 な ど は 。 その 時 に 行っ た 単語 登録 や 訂正 な ど が すべ て 無効 に 
な っ て し まい ます . 


P.d.4 モジュール 


プ 


この プロ グラ ム は 。 3 つの モジ ュー ル ( ひ と つの メイ ン モ ジュ ー ル と 2 つの サ プ 
モジ ュー ル ) に よっ て プロ グラ ム が 構成 され て いま す . 

メイ ン モ ジュ ー ル は DIC-MAIN. BAS で , プロ グラ ム 全 体 の 流れ を コン トロ ー 
ル す る プロ シー ジャ , お よび 上 単語 帳 の 各 機 能 を 処理 する プロ シー ジャ か ら な っ て 
(の 表す 。 

サブ モジ ュー ル の ひと つ 目 は , AVL- 木 構造 を 持つ 辞書 ファ イル 関係 の プロ シー 
ジャ か ら 構 成 さ れ た DIC-AVL. BAS, も う ひ と つの サブ モジ ュー ル は 。 単語 帳 で 
スペ ル や 意味 の 入力 お よび 修正 に 使用 きれ る , 1 行 エ ディ タ を 構成 する プロ シー 
ジャ か ら な る DIC-EDIT. BAS で す . 

辞書 ファ イル の デー タ は , Node 型 と 呼ば れる レコ ー ド 型 の 配列 変数 x を 用 意 し , 
その 各 要 素 に 格納 され る こと に な り ま す . 配列 要素 の 数 は 辞書 ファ イル で 扱え る 
単語 の 数 に あたり , 定数 ListSize で 与え を ます .Node 型 は 次 の よう な TYPE 文 を 使っ 
て 。 メ イン モジ ュー ル と サブ モジ ュー ル の モジ ュー ルレ ベル コー ド に お いて 。 宣 
理 し て お きま すず . 


TYP Node 
inf AS STRING * InfSize 
acc AS INTEGER 
SynOD AS STRING * ネ SynODS1Ze 
left AS INTEGER 
right AS TINTREGER 
weight AS INTRGER 
END TYPE 


ここ で 定数 InfSize は 単語 の 長 さ (文字 数 )。 定数 SynopSize は 単語 の 意味 を 記述 
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中 


する 文字 数 を 指す 定数 で , TYPE 宜 言 よ り 前 に 次 の よう に CONST 宣 言 し て お きま 


す 。 


CON8T TnfSize = 20 
CONST SynopSize = 70 
CON8ST ListSize = 100 


定数 ListSize は 辞書 ファ イル の 登録 単語 数 を 指す 定数 で す . 

と ころ で 。 この 配列 変数 x は メイ ン モ ジュ ー ル だ け で は は なく, サブ モジ ュー ル か 
ら も アク セス され ます か ら 。 モジ ュー ル 間 で 共有 きれ る 必要 が あり ます . また そ 
れ ぞ れ の モジ ュー ル 内 で は グロ ー バ ル で ある 必要 が あり ます . そこ で , この 配列 
変数 x に つい て は 。 両方 の モジ ュー ル の モジ ュー ルレ ベル コー ド で 次 の よう に COMMON 
SHARED 宣 言 を し て お か な けれ ば な り ま せん . この 場合 , 配列 要素 の 数 は DIM 文 
で 宣言 し ます か ら 省 略し て か まい ませ ん . 


DIM x(ListSize) AS Node 
COMMON SHARED x( ) AS Node 


P.3.5 主要 な プロ シー ジャ に つい て の 説明 


タグ 


メイ ン モ ジュ ー ル の リス ト を リス ト 2.3.I| に 示し ます 。. サ プ モ ジュ ー ル の リス 
ト は 2.4(188 ペ ー ジ ) お よび 2.5(209 ペ ー ジ ) に 示し ます . 
以下 に 。 メ イン モジ ュー ル の 主要 な プロ シー ジャ に つい て 。 説明 し ます . 


OR 






メイ ン モ ジュ ー ル の モジ ュー ルレ ベル コー ド で は 。 メ イン モジ ュー ル か ら コ ー 
ル す る SUB。 あ る い は FUNCTION プ ロ シ ー ジ ャ の 宣言 を する DECLARE 文 。 定 
数 の 宣言 。 ユー ザ 定 義 変数 の 宣言 と グロ ー バ ル 変 数 の 宣言 を 行っ て いま す . 

まだ た だ 。 タ イマ ー ト ラッ ピン グ の 宣言 と エラ ー ト ラッ ピン グ の 宣言 。 お よび それ 
ぞ れ の 処理 ルー チン も 記述 され て いま す .。 た だ し , これ ら の 処理 ルー チン は 。 処 
理 の 流れ に 影響 を 受け な いよ うに END 文 の 後方 に 位置 し て いる こと に 注意 し て く 
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P.3 パー ソナ ル 単 語 
だ さい 、。 
READ 文 で メニ ュー 項目 を 文字 列 配 列 MenuTitle$ に 読み 込ま せま す が , DATA 
文 も モジ ュー ルレ ベル コー ド に 置く 必要 が あり ます . 
SUB プ プロシージャ Menu を コー ル し て 。 モ ジュ ー ル レベ ルコ ー ド の 処理 は 終わ り 





この プロ シー ジャ が モジ ュー ルレ ベル コー ド か ら コ ー ル され る と ,。 まず フロ ッ 
ピ ィ ディ スク 上 の ラン ダム 辞書 ファ イル ENGWORD. DIC が , Node 型 の グロ ー バ 
ル 配 列 変数 x (ListSize) に 読み 込ま れ ま す . これ は ,2.3.2 で 書い た よう に , 辞書 フ ァ 
イル の 書き 換え , 検索 な ど で 。 フ ロッ ピ ィ ディ スク 上 の ラン ダム ファ イル が 頻繁 
に アク セス され る と , 実行 が 遅く な り 人 快適 な 使用 感 が 得 ら れん な く な り ま す . そこ 
で 。 処理 の 最初 に 。 フロ ッ ピ ィ デ ィ ス ク 上 の 辞書 ファ イル を あら か じ め メ モリ 上 
の 配列 に 移し て お きま す . 

次 に ,。 パー ソナ ル 単 語 帳 の 各 機 能 を 呼び 出す メニ ュー 処理 に 移り ます . ここ で , 
タイ マー トラ ッ ピ ング を 開始 する た め に TIMER ON ステ ー ト メン ト を 書い て お き 
ます 

FUNCTION プ ロ シ ー ジ ャ DispMenu を 使用 し て , 単 語 帳 の 機能 一 覧 メニ ュー を 
表示 させ て 処理 を 選択 きせ ます . カー ソル ある い は ショ ー ト カッ トキ ー を 使っ て 
機能 を 選択 する と, この 関数 は 機能 に 対応 し た 数 値 を 返し ます . 

p% が 0 で な い 。 つま りこ の 単語 帳 を 初め て 使う と き 以 外 は , SELECT CASE 
文 に よっ て 。, 各 機 能 ご と の プロ シー ジャ に 実行 が 振り 分 けら れ ま す . p% が 0 の と 
き は , メニ ュー の [5 / 新 規 フ ァイル 作成 ] を 選択 し て か ら で な いと , ほか の 機能 を 
選択 で き な い よう に な っ て いま す (| 8 / 終 了 | は 別 ). 

も し, ほか の 機能 を 選択 し た 場合 は , 警告 メッ セー ジ を 表示 する よう に な っ て 
いま す 。. 

さて , メニ ュー の 1 7 の 機能 の うち , 画面 に 時 刻 を 表示 する と 邪魔 に な っ て 
し まう 5,6,7 の 場合 は 。 タ イマ ー ト ラッ ピン グ を 中 止 す る た め に , 各 プ ロ シ ー ジ ャ 
を コー ル す る 前 に TIMER OFF ス テー トメ ント を 置き を, プロ シー ジャ か ら 戻 っ た 
ら 。 TIMER ON ステ ー ト メン ト を 置い て , トラ ッ ピ ング を 再開 する よう に し て い 
ませ サ . 
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@ リ スト Z.3.1 


や OoC- っ の ぴの (トト う ピピ ビ 


DECLARE SUB GetAccPos (AcCcPosGet! , WordSpe11$ ) 
DECLARE SUB DeleteStr (Ss1$、 Start%, Num% ) 
DECLARE SUB InsertStr (Ss2$, 51$ PoSNum% ) 
DECLARE FUNCTION IsKan]1! (CS$) 

DECLARE SUB ReadLine (s1$, BufLen!, X0. y0) 


・ DECLARE SUB DispFile (DS) 

・ DECLARE SUB DispTree (p%, depth! , u$, 1$) 
・ DECLARE SUB Delete (t$, p%, f%) 

半 LAIE SUB Insert (a$, B%,、 CS$, DS) 





SUB PrintTree (p%, depth! , u$, 1$) 


: DECLARE SUB PrtFiie (pS) 

・:DECLARE SUB Correct (PS) 

・ DECLARE SUB De1Word (p%) 

・ DECLARE SUB Trans1ate (Ds) 

: DECLARE SUB InitArray () 

・ DPECLARE SUB Entry (Ds) 

・ DECLARE SUB NewFile (D%) 

・ JECLARE FUNCTION DispMenu! (MenuNum! , MenuTitle$() ) 
・ DECLARF SUB Menu (MenuNum, MenuTitle$( ) ) 
・ DECLARE SUB InitFreeList () 

・ DECLARE FUNCTION Search! (ItemS, ps) 


・ CONST InfSize = 20 
・ CONST SynopSize = 70 
・ CONST ListSize = 100 


26: CONST False = 0, True = NOT False 
人 

28: CONST DicName$ = “"B:ENGWORD .DIC" 
29: 

30: CONST MenuNum = 5 

2 よ 

32: CONST JobTItleRow = 3 

33: CONST JobT1tieCo] = 20 

34: CONST WordRow = 10 

35: CONST WordCo] = 20 

36・ CONST MeanRow = 14 

37: CORNST MeanCo] = ぉ 

38: CONST CommandRow = 20 

39: CORNST CommandCo] = 10 

40: CONST CiockRow = 5 

41: CONST ClockCo] = 60 

42: 

43: 

44: TYPE Node 

45: inf AS STRING * InfSize 
46: acCc AS INTEGER 

47・ SYhOD AS STRING * SYnOoDpSize 
48: eft AS INTEGER 

49: right AS INTEGER 

50: weight AS INTEGER 

51 : END TYPE 

も 2 

53: 時 x(ListSize) AS Node 
54: DIM MenuTit1e$(10 ) 

いい 

56: COMMON SHARED x() AS Node 
に W 旬 

58: ON TIMER(1) GOSUB DispTime 
59・ 

60・ ON FRROR GOTO ErrExit 
61・ 

62・ CLS 0O 

63: SCREEN 0 

64・ 

65 : FOR 1 = 1 TO MenuNum 
66・ READ MenuTitle$({) 


メイ ン モ ジュ ー ル DIC-MAIN・BAS の 全 リ スト 


67・ NEXT 1 

68 : 

69: DATA 1/ 単 笑 登 録 , 2/ 意 味 検 索 . 3/ 訂 正 , 4/ 削 除 
70: DATA 5/ 新 規 フ ァイル 。,6/ 登 録 単 語 一 覧 , ?7/ 印 刷 , 8/ 終 了 
9 

オタ CALL Menu(MenuNum, MenuTitle$( ) ) 

か か CLS 

74 

の END 

76・ 

77・ ErrEXit: 

78: 

79・ PRINT " ェ ラ ー が 発生 し まし た . 

80: PRINT " ェ ラ ーー 番号 = “: ERKR 

81 : 

82: SELECT CASE ERR 

83: CASE 71 

84: PRINT "指定 し た ドラ イプ ブ プ に 辞書 が あり ませ ん 
85: PRINT "辞書 ファ イル の 人 和信 っ た フロ ッ ピ ィ デ ィ 
86 : PRINT "な に か キー を 押し て くく ださい. 
87・ DO 

88: LOOP UNTITL (INKEYS <> “「) 

89: CASE ELSE 

90・ CLOSE 

91 : FND 

92・: 

3 * END SELECT 

94 : 

95 ・ 

96: RESUNE 

生 

98・ 

99: DiSDT1 和 me・ 

100: 

101 : XPos = POS(0) 

102・ YPos = CSRLIN 

103: 

104 : LOCATE ClockRow , ClockCo1 

105: PRINT DATES 

106: LOCATE ClockRow + 1。 ClockCol] + 1 

107・ PRINT 71MMES 

108・ 8 

109・ LOCATE YPos, XPos 

110: 

111: RETURN 

えみ ・ 


113: SUB Correct (PD%) 


114・ 


115: DEIM OneWord AS Node ' 
116: DTM Spel1(1 TO InfSize) AS STRING * 1 


まま (: 
118: 
すす: 
120: 
か 
まま 湊 る 
123 : 
124 : 
まめ かい 
126・: 
12 ナ ・ 
128・ 
よび: 
130: 
いき 午 
の 
133: 
134 : 
すい 


CLS 


LOCATE JobTitleRow, JobTitleCo1 | 
PRINT "* * 光 * Tj 米 米 


LOCATEF WordRow, WordCo} - 6 
PKEINT 単 衝 ) 「 
LINEF (100, 140)-(314, 163). , B 


LOCATE MeanRow, MeanCol - 6 
PRINT "意味 : “ 

LOCATE MeanRow , MeanCo+ 

LINE (1, 204)-(620, 227)。,B 


LOCATE CommandRow。CommandCo1 


PRINT* 訂 正 し た い 単 語 の スベ ル を 入れ て くだ さい 。" 


LOCATE CommandRow +・ 1, CommandCo} 


P.3 パー ソナ ル 上 単語 
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まま NT (終了 する 時 は ビリ オド (。 ) を 人 入力) “ + SPACES(40) 


1 


S$ = 
CALL ReadLine(s$, InfS1ize, WordCo] , WordRow ) 
OneWord.inf = s$ 

TF INSTR(OneWord.inf, ".") THEN EXIT SUB 


LOCATE WordRow。 WordCo1 


LengthWord = LEN(RTRIM$(OneWord.1nf ) ) 
IF LengthWord > InfSize THEN LengthWord = InfSizec 


FOR = 1 TO LengthWord 
Spe11([) = MIDS(OneWord.1nf 1, 1) 
PRINT Spe11(1) : 

NEXT 1 


S$ = LEFT$(OneWord.inf, 20) 

where = Search(sS$, PD 和 ) 

ド where <> 0 THEN 
ACCentPos = X(where ) .aCc 
OneWord.acc = AccentPos 
01dAccentPos = AccentPos 
OneWord.synop = X(where) .SyYnob 
LaStACcentPos = ACcentPos 


TF AccentPos <> 0 THER 
_ LOCATE WordRow , WordCo] + AccentPos - 1 
COLOR 4 
PRINT 生 1A6ceotPoe) 
| 
END TF 


_LOCATE MMeanROw 。 MeanCo] 
、 HHN II ] 


- 邊 - __ 0 0 

ーー LOCATE CowwandNov. CommandCol 

_ PRTNT 中 人 住 し た い 需 目 の 秋 号 を 人 力 し て 〈 く ださい. 
9 CommandRow + 1. CommandCo1 






ATE_ 
PRINT *1: 単 絡 の スペ ル ク の ググ セッ ルト 3: 竜 味 4: 林 正 終 了 “ 


LOCATE CommandRow + 2. CommandCo1 
PRINT SPACE$(40) 

LOCATE CommandROoW + の CommandCo}1 
INPUT Item$ 

8S = LEFTS(Ttems , 1) 


_ LOCATE nil - 2, CommandCo] 
PRINT SPACES(40) 





SELECT CASE 5 





CAS sE ーー ーー 


= = RTRTMS (OneWord. nf ) 
| _ CAL ReadLine(ss, InfSize, WordCo1 , WordRow) 
OneWord. inf = SS 





LengthWord ) て EN(OneWord. 1nf ) 






。 LOcATE WordRow。 WordCo1 
PRTNT SPACES(LengthWord) 





、 1OCATE WordRow , WordCo1 
FOR 1 = 1 70 LengthWord 
Spel1 (1 ) = MIDS(OneWord.1nf. :, 1) 
- PRiRT Spe11(i): 


c.J バー ソナ ル 上 単語 


205・: NEXT 1 

206・ 

207・: TF AccentPos > LengthWord THEN AccentPos = LengthWord 
208: OneWord.acc = AccentPos 

209: 01dAccentPos = AccentPos 

210: 

まま : 』F ACcentPos <> 0 THEN 

212: LOCATE WordRow 。 WordCo] + AccentPos - 1 
213: COLOR 4 

214: PRINT Spe]1(AccentPos ) 

まま を で て COLOR 7 

21.6 : END 』F 

2 ます? 

218: CASE "2" 

219・ 「 

220: WordSpe11$ = RTRIMS(OneWord.1nf ) 

・ CALL GetAccPos(AccentPos , WordSpe11$ ) 
223: OneWord.acc = ACcentPos 

224・ 

225 : 

226 : If AccentPos <> 0 THEN 

で 

228・ JF LastAccentPos <> 0 TIEN 

229・ LOCATF WordRow , WordCo] + LastAccentPos - 1 
230: COLOR 7 

231 : PRINRT Spel1(LastAccentPos ) 
232・ END IF 

と な 

234 : LOCATF WordRow , WordCo} ・ AccentPos - 1 
235・ COLOR 4 

236: PRINT Spel11 (AccentPos ) 

と を 人 COLOR 7 

235・ LaSstAccentPos = AccentPos 

239: 

240: END F 

241 : 

242 : 

243・ CASE "3 

244 : S$ = RTRIMS(OneWord .SYnoD ) 

245: CALL ReadLine(s$, SynopS1ze. MeanCo] , MeanRow ) 
246 : OneWord.8EYnOD = SS$ 

247・ 

248: CASE "4" 

249: EXIT DO 

250: END SELECT 

みり 』 ^ 

252 : COLOR 5 

253 : LOCATE CommandRow - 2,。 CommandCo1 

254 ・: PRINT "* ネネ 訂正 完 六 ポ ボ 

255 : COLOR 7 「 

256: LOOP 

25 7 ・ 

258: CALL Insert(OneWord.inf。 OneWord.acc, OneWord.SynoD, DS) 
259: 

260: TF a$ = “4′" THER EXTIT SUB 

261 : 

262・: EISE 

263: LOCATE MeanRow, MeanCo1 

264・ COLOR 5 

265・ PRINT この 単 話 は 登録 され て いま せん . “ 

266・ COLOR 7 

267・ END jF 

265 : 

269 : LOCATE CommandRow , CommandCo1 

270: PRINT "ご 何 か キー を 押し て くだ さい . " + SPACE$(40 ) 
271 : LOCATE CO 天 mandRow + 1, CommandCo1 

272・ PRINT SPACF$( 40 ) 

273 : DO 
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274・ 
275 : 
276 : 
せき 前 
278・ 
279・ 
280: 
281 : 
282・: 
283 
284 : 
285: 
286 : 
287・ 
288: 
289・ 
290・ 
メ 91 ^ 
292 : 
293 : 
294・ 
295 
296 ・ 
297・ 
298 : 
299 : 
300・ 
301 ・ 
302・ 
303・ 
304 : 
305: 
306 : 
307・ 
308・: 
309: 
310: 
3 まま よ : 
312・ 
313・ 
314・ 
3 よる 9: 
316: 
931 7 : 
318・ 
319: 
320・ 
321 ・ 
の の 
323・ 
324・: 
325 ・ 
326・ 
トン ダ 人 
328: 
329: 
330・ 
331 : 
332: 
333 : 
334・ 
335 
336 : 
KN 角 
338: 
339: 
340・ 
341 ・ 
342・ 


168 


LOOP UNTIL INKEYS <> 


LOOP 


END SUB 


SUB DelWord (Dp%) 


DI OneWord AS Node 
DIM Spe11(1 TO InfSize) AS STRENG * 1 


DO) 


CLS 


LOCATE JobTitieRow , JobTitieCo1 
PRINT " 玉 玉 六 * 削 除 ま 証 光 キ ホ " 


LOCATE WordRow WordCol - 6 
PRINT 岸 結 : 
LINE (100, 140)-(314, 163), , 5 


LOCATEF MeanRow, MeanCol] - 6 
PRINT " 但 昧 |: “ 

LOCATE MeanRow , MeanCo1 

LINE (1, 204)-(620、227)、, B 


LOCATE CommandRow , CommandCo1 

PRINT “削除 し た い 香 庄 の スペ ル を 入れ て くだ さい 。“ 

LOCATE CommandRow + 1, CommandCo1 

PKEEE ( 終 ) する 時 は に り オド (. ) を 人 有力 ) > SPACES(40) 


SS = 

CALL ReadLine(s$, InfSize, WordCo1] , WordRow ) 
OneWord.inf = s$ 

IF INSTR(OneWord.inf, ".“") THEN EKTIT SUB 


LOCATE WordRow , WordCo1 


LengthWord = LEN(RTRIMS(OneWord.1nf ) ) 
TF LengthWord > InfSjize THEN LengthWord = InfSize 


FOR エ = 1 TO LengthWord 
Spel1 (1) = MIDS(OneWord.inf, [,、 1) 
PRINT Spe11 (1): 

NEXT 


S$ = LEFT$(OneWord.inf, 20) 


where = Search(S$, D%) 
THF where <> 0 THEN 
AccentPos = X(where ) .acc 


TF AccentPos <> 0) THEN 
LOCATE WordRow, WordCo] + AccentPos - 1 
COLOR 4 
PRINT Spel11 (AccentPos ) 
COLOR 7 
END 1F 


LOCATE MeanRow , MeanCo1 

PRINT xX(where ) .synop 

LOCATE CommandRow, CogmandCoi , 0 

PRINT 削 際 し て よろ し いで すか . (y/n)" ・ SPACE&(20 ) 
LOCATE CommandRow + 1, CommandCoi 

PRINT SPACF$( 40 ) 


DO 
8$ = INKEYS 
LOOP_ UNTIL (UCASE$(a$) = "YOR UCASES(a$) = "NR") 


p.3 パー ソナ ル 汗 語 





343: 

344: LOCASE 、、 ょ 

345: 

346 : TF UCASES(a$) =: “Y THER 

347 : 

348: CALL Delete(s$, D%, f%) 

349: 

350: LOCATE MeanRow, MeanCo+ 

351 : COLOR 5 

352: PRINT "削除 し まし た . " + SPACES(70) 
353 : COLOR 7 

354・ END IF 

355・ ELSE 

356 : LOCATE MeanRow , MeanCo1+ 

357 ・ COLOR 5 

358 : PRINT "この 単 話 は 登録 され て いま せん . 和 
359: COLOR 7 

360: END IF 

361 : 

362: LOCATE CommandRow , CommandCo] 

363: PRINT“" 何 か キー を 押し て くだ さい . * + SPACES$ (40 ) 
364・ LOCATE CommandRow + 1, CommandCol 

365: PRINT SPACE$(40) 

366・ 

367・ DO 

36 も ・: LOOP UNTIL INKEYS <> “ 

369: LOOP 

370・ 

371: END SUB 

372・ 

32373・ SUB DispF1ile (PS) 

374・ 

37 ら 5: CLS 0 

376・ 

いる が PRINT "表示 し た い 単 語 の 範囲 を 指定 し ます . 
378: 

379・ DO 

380 : TNPUT " 幼 囲 の 最初 の 頭 文 字 を 入力 し て くだ さい . ju 
381 : INPUT “ 栓 失 の 旨 文 字 を 入力 し て くだ きい 。 : 15 
382 : u$ = UCASES(LEFTS(uS, 1) ) 

383: 1$ = UCASE$ (LEFT$(1$, 1) ) 

384: TF u$ > 1$ THER 

385・ PRINT " 細 囲 指定 が お か し いで す . 
386 : ELSE 

387: EXIT j 

388: END j ド 

389: LOOP 

390 : 

391 : CLS 0 

392 : CALL DispTree(p%, 0, US,、 15) 


393: 

394: PRTRT "ご 何 か キ ー を お し て くだ さい . 

395・ 記 

396 : LOOP UNTIL INKEYS <> 

397・ 

398: END SUB 

399: 

400: FUNCTION DispMenu (Num, TIt1eS() ) 

401 : 

402: CLS 

403: 

404: LOCATE JobTitleRow JobTitleCo1 

405: PRINT "* * ※ 電子 単 話 転機 能 刀 択 メニュー キキ キー 
406 : 

407・ LOCATE CommandRow . COmmandCo1 

408: PRINT "選択 し た い 機 能 を カー ソル (1 ・!) で 指定 し て くだ きい 。「 
409: 

410: 

411: rOW = 7 
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412: Co = 30 


413: 
414: 


415: LOCATE row, Co1 
416・ COLOR 15 
417: PRINT USING “& る ": TItie$([) 


418: 

419: COLOR 7 
420: FOR ] = 
421 : 

422・: 

423: NEXT 1 

424: 

425 : f 11enu 和 
426: 

427・ DO 

428: DO 

429・ 


2 TO Num 
LOCATE row + 1 - 1, co 
PRINT USING “& %& : Title$() 


=* 1 


8$ = INKEYS 「 


430: LOOP UNTIL ((VAL(a$) >= 1 AND VAL(a$) <= 8) ) OR (as = CHRS(0. &H48) OR as = 
CHRS(0, &HS0) OR a$ = CHRS(13) ) 


431 : 


432: ITF VAL(a$) >= 1 AND VAL(a$) <= E THEN 


433: 
434 : 
435 : END 
436 : 
437・ 


DispMenu = VAL(8a$) 
EXIT FUNCTIOR 
』F 


438: DO WHILE (a$ = CHR$(0, &H48) OR as = CHRS(0, &H50 ) ) 


439: 
440: 
441 ・ 
442・ 
443: 
444 : 
445・ 
445: 
447・ 
4458: 
449・: 
450 : 
まい * 
452・ 
453・ 
454 : 
455 : 
456 : 
457・: 
458: 
459・ 
460・ 
461 ・ 
462・ 
463・: 
464 : 
465: 
466 : 
467・ 
468: 
469・ 


SELECT CASE a$ 
CASE CHR$(0, &H48) 
heXtfnum = filenum - 1 
F neXtfnum < 1 THER 
DeXtfnUMR = NUM 
END jF 
CASE CHR$(0C, &H50) 
neXxtfnum = filenum + 1 
IF nextfnun > Num THEN 
nHeXtfnUm = 1 
END jF 
END SELECT 


IF (nexXtfnum >= 1 AND nextfnum <= Num) THEFN 
COLOR 7 
LOCATE row + fjilenum - 1, co] 
PRINT USING "& &". TItie$(fi]enun ) 


COLOR 15 
LOCATE row + nextfnum - :, co] 
PRINT USING “& &": TitleS(nextfnum ) 
filenum = neXtfnum 
COLOR ? 
END 』F 


DO 
8aS = JNKEYS 


470: LOOP WILE aS = "" 


471・ LOOP 
472: 


473: LOOP UNTIL (aS = CHRS(13) ) 


474: 
475: COLOR 7 
476 : 
477・: DispNMenu 
478: 
479: ERND FUNRCTION 
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* f{iienun 


480 : 
481 ・ 
482 : 
483 : 
484 : 
485: 
486 ・: 
487・ 
488: 
489: 
490: 
491 : 
492・ 
493・ 
494 : 
495: 
496 ・: 
497・ 
498: 
499・ 
500・ 
501 : 
502 : 
503: 
504: 
505・ 
506: 
507・ 
508: 
509: 
510: 
5 は 1: 
512 : 
513: 
514: 
515: 
516: 
517・ 
518: 
519: 
520: 
521 : 
522 ・ 
523 : 
524・ 
525・ 
526 : 
527・ 
528: 
529: 
530: 
531 : 
532 : 
533: 
534・ 
535 : 
536 : 
537・ 
538: 
539: 
540: 
541 : 


543・ 
544: 
545: 
546・ 
547・ 
548: 


c.J バー ソナ ル 単 語 


SUB Entry (PD%) 


DIMN OneWord AS Node 
DTM Spel]1 (1 TO InfSize) AS STRING * 1 
DIM WordSynop AS STRING * SynopSize 


DO 

CLS 

8$ ょ " 
InpSpe11 : 


LOCATE JobT1tleRow , JobTitlieCo1 
PRINT "* ※ ネネ キネ 単 話 登録 * *※ ※ キ *※ キ ネー“ 


LOCATE WordRow 。 WordCo] - 6 
PRINT " 則 店 : “ 
LINE (100, 140)-(314, 163): , B 


LOCATE MeanRow , MeanCo] - 6 
PRINT 凍 昧 : “。 

LOCATE MeanRow , MeanCo1 

LINE (1, 204)-(620, 227), , B 


LOCATE CommandRow, CommandCo} 

PRIIT "単語 の スペ ル を 入れ て くだ さい 。“ 

LOCATE CommandRow + 1, CommandCo1 

PRINT "(終了 する 時 は ビリ ォ オド (. ) を 入力 ) “+ SPACES(40) 


CALL ReadLine(s$, InfSize, WordCo] , WordRow ) 
OneWord.inf = s$ 
JF INSTR(OneWword.inf, ".") THEN EXIT SUB 


S$ = LEFT$(OneWord.inf, 20) 
where = SearCch(S$, P%) 


IF where <> 0O THERN 
COLOR 5 
LOCATE CommandRow、 CommandCol, 0 
PRINT "この 単 結 は すでに 登録 され て いま す . “ ょ SPACE$(40) 
LOCATE CommandRow + 1, CommandCo1 
PRINT "上 審 き し ます か . (y/n)" + SPACES (40 ) 
COLOR 7 


DO 
8$ = INKEYS$ 
LOOP UNTIL (UCASES$(a$) = “Y” OR UCASES(a$) = “"N") 


LOCATE CommandRow , CommandCo1 
PRINRT SPACE$(40 ) 

LOCATE CommandRow + 1, CommandCo1 
PRINT SPACE$ (40 ) 


LOCATE , ,1 


JF UCASE$(a$) = "NRN" THEN 
EXIT SUB 
END F 
END TjF 


LengthWord = LEN(RTRIM$ (OneWword.1nf ) ) 
LOCCATE WordRow , WordCo1 
FOR ! = 1 TO LengthWord 
Spe11 (1) = MID$(OneWord.1inf, [, 1) 
PRINRT Spe11(1)・ 
NEXT ! 
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・ WordSpe11$ = RTRIM$(OneWord.inf ) 
・ CALL GetAccPos (AccentPos , WordSpe11$ ) 


・ HEF AccentPos <> 0 THER 


COLOR 4 

LOCATE WordRow . WordCo] + AccentPos - 1 
PRINT Spe11(AccentPos ) 

COLOR 7 


・ END 』F 


LOCATE CommandRow , CommandCo] 。 1 

PRINT " 単 結 の 意味 を 入れ て くだ さい 。 " + ょ SPACE$(40) 

LOCATE CommandRow + 1, CommandCo1 

NT スペ ル の 人 人 力 に 打 り た いと ま は スラ う ラッ と 。 ぁ 。 (だ /) 生 和 人 力 。、“ 
8S$ = の" 

CALL ReadLine(s$, SynopSize, MeanCo1 , MeanRow ) 
WordSynop = LEFT$(s$, SynopS1ize ) 


F INSTR(WwordSynop , “/" ) THER 
LOCATE MeanRow, MeanCo], 0 
PRINT SPACES(SynopSize) 
8$ = RTRIMS(OneWord.1nf ) 
GOTO InpSpe11 

END 』F 


・ LOOP UNTIL WordSynop <> SPACES(SynopSize ) 


: OneWord.acc = AccentPos 
・ OneWword.SynoD = WordSynob 


・ CALL Insert(OneWord.inf. OneWord.acc, OneWord.SynOD, D%) 
・ LOOP 

・ END SUB 

・ SUB GetAccPos (AccPosGet, WordSpe11$) . 

: DIHM Spe11(1 TO InfSize) AS STRING * 1 


・ LengthWord = LEN(WordSpe11$ ) 
・ FOR } = } TO LengthWord 


Spe1]1 (1) = MIDS(WordSpe11$, [, 1) 


・ NEXT [ 


・ LOCATE WordRow , WordCo} 
・ ACCPoOSGet = 1 

・ COLOR 15 

・ PRINT Spel1] (AccPosGet ) 
・ COLOR 7 


・ LOCATE CommandKow . CommandCol, 0 「 

:PRINT "単語 の アク セン ト を ウ カー ソル (一 ・ 一 ) " + SPACES(20) 
・ LOCATE CommandRow + } , CommandCo1 

・FPKINIT で 指定 し て くだ きい 。 (pass->ESC)" + SPACES$(20 ) 

・ LOCATE CommandRow + 2。 CommandCo1 

・ PRINT SPACES$ (40 ) 


・ DO 


DO 
8$ = INKEYS 
LOOP WHILE 85 = " 





DO WHILE (aS = CHR$(0, &H4B) OR a$ = CHR$(0, &H4D) ) 


618・ 
619: 
620・ 
621 : 
622・: 
623・ 
624 : 
625・ 
626・ 
627・ 
628: 
629・ 
630: 
631 ・ 
632・ 
633: 
634 ・ 
635 : 
636 : 
637・ 
638: 
639・ 
640・: 
641 : 
642: 
643: 
644* 
645: 
646・: 
647・ 
648 : 
649: 
650・: 
651: 
652・ 
553: 
654 : 
655: 
656 : 
657・ 
655・ 
659: 
660: 
661 ・ 
662・ 
663・ 


665 : 
666・ 
667: 
668: 
669・: 
670: 
671 : 
672・: 
673: 
674・ 
675: 
676・ 
677・ 
678・ 
679・ 
680・: 
681 : 
682・: 
683: 
684 : 
685: 
686・: 


cr.J バー ソナ ル 上 単語 


SELECT CASE a$ 
CASE CHR$(0, &H4B) 
NewACCentPoS = AcCPosGet - 1 
CASE CHR$(0. &H4D) 
NewACCentPos = AccPosGet + 1 
END SELECT 


JF (NewAccentPos >= 1 AND NewAccentPos <= LengthWord ) THEN 
COLOR 7 
LOCATE WordRow , WordCo1 + AccPosGet - 1 
PRINT Spe11(AccPosGet ) 


COLOR 15 

LOCATE WordRow 、 WordCo] ょ NewAccentPos - 1 
PRINT Spe11(NewAccentPos ) 

ACCPosGet = NewAccentPos 

COLOR 7 


END jF 


DO 
8$ = INKEYS 
LOOP WHILE a% = ““ 
LOOP 
F a$ = CHR$(&H1B) THEN 
AcCcPosGet = 0 
LOCATE WordRKow , WordCo} 
COLOR 7 
FOR 1 = 1 YO LengthWord 
PRINT Spel1 (1): 
NEXT 
END jJF 


LOOP UNTIL (a$ = CHR$(13) OR a$ = CHRS(&H1B) ) 
END SUB 

SUB InitArray 

FOR 1 = 0 TO LisStSize 


NII SS の 
X(I).acc = 0 
X(I).synop = " 
X([).left = 0 
X(T).right = 0 
X([).weight = 0 


すき 


REXT ! 
END SUB 
SUB Menu (MenuNun, MenuTitle$( ) ) 


DIM xdata AS Node 


OPEN DicName$ FOR RANDOM AS #1 LEN = LEN(xdata ) 


FOR ] = 0 TO ListS1ize 
まま 。 1 1、 MI 
NEXT 〕 


CLOSE #1 
TIMER ON 
P% = X(0).1eft 


LOCATE , , 0 
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687: SelectedJob = DispMenu(MenuNum, MenuTitleS$( ) ) 


688: 0CAIE 。 。、 は} 

689・: 

690・ IF p% <> 0 THEN 

691 ・ 

692: SELECT CASE SelectedJob 

693・ CASE 1 ' 単 話 登録 

694 : CALL EntrY(P%) 

695: CASE 2 "意味 検索 

696 : CALL Transl1ate(D%) 

697・: CASE 3 "a】 比 

698: CALL Correct(P% ) 

699: CASE 4 " 削 除 

700・ CALL De]Word(p%) 

701 ・ CASE 5 新規 ファ イル 作成 
702 ・ TTMER OFF 

703 : CALL NewFile(p%) 

704・ TIMEER ON 

705: CASE 6 登録 単 話 一 覧 ま ホ 
706 : TINMER OFF 

707・ CALL DispFlle(pS) 

708: TIMER ON 

709: CASE 7 ' 印 布 

710: TIMER OFF 

まま く CALL PrtFije(ps) 

まる 1 MER ON 

713・ CASE 5 "終了 

714・ EXIT DO 

『 ま 3 END SELECT 

716 : ELSE 

まさ SELECT CASE SelectedJob 

718 : CASE 5 新規 ファ イル 作成 
719・ CALL NewFile(p%) 

720・ CASE 8 "終了 

みう 机 EXIT DO 

どか CASE ELSE 

723 : CLS 0 

724・ PRINT "指定 し た 時 宇 フ ァイル が まだ つく られ て な いあ 
725: PRKINT ファ イル の 初期 化 が すん で いま せん . 
726・ PRINT "「 新 規 フ ァイル 作成 」 rmT' "すす 、。、" 
ルイ PRINT : PRINT 

725・ LOCATE CommandRow, CommandCo1 
729・ PRKENI 合 か キー を 押し て くく ださい. “ 
730 : DO 

まかり LOOP UNTIL INKEYS <> "の" 

が ど る 

か END SELECT 

734 : END jF 

りか 

736: LOOP 

の 7 

738: TIMER OFF 

本 

740: LOCATE CommandKow , CommandCo1 

7 人 ま ( ま KE ま EN だ た だ いま (所 ぼ ま を し て で いま すす 、 | し | ばら 〈( お お まち (《( だ さい * 
742・ 

743・ 


744: X(0).1eft = Dp% 
745: OPEN DicNameS FOR RANDOM AS #1 LEN = LEN(xdata ) 


746 ・ FOR ] = 0 0 ListSize 
747・ だ U| また 、 】 * 1、X(】 
748: NEXT ] 

749: CLOSE #1 

750・ 

<9 よ : も LS 0 

た か 

753・ END SUB 

754 : 


755: SUB NewFile (Ds) 
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C.d バー 
756 : 
本 CLS 0 
758: 
759: PRINT "新規 辞書 ファ イル を 作成 し ます . " 
760: PRINT "古い 辞書 ファ イル の 内 容 は 消去 され ます . “" 
761 : PRINT "よろ し いで すか 2?2 (y/n)“" 
762・ DO 
763・ 8$ = UCASPS$ (INKEY$ ) 
764・ LOOP UNTLL (a5 = "Y” OR a$ = "NR" ) 
765・ TTF a$ = "N "THEN EXIT SUB 
766 ・ 
767・ CALL InitArray 
768: CALL InitFreeList 
769: 
770: D% = 0 
ド が か 
が た か CALL Fntry(D%) 
773・ 
774: END SUB 
まく 
776: SUB PrtFiie (Dp%) 
まま 当 
778: CLS 0 
779・ | 
780: PRINT "辞書 ファ イル を 印刷 し ます . “ 
781 ・ KEINE ツリ シナ の 失 全 を し て で (、 だ さい 
782・ RANI よろ し いで すか ?216yV/nN) 
783・ )) 
784 : 8$ = UCASE$( INKEY$ ) 
785: LOOP UNTIL (a$ = "Y OR a$ = "KN") 
786 : TFT a$ = "NN THEN PXIT SUB 
787・ 
788・ PRINT “印刷 し た い 単 話 の 範囲 を 指定 し ます . " 
789: 
7390: DO 
791・ 0 邊 生 且 の 全 介 の 基文 を PO 1 
792: INPUT 委 後 の 縛 文字 を た 人力 し て くだ さい ~:】^ 
793 : u$ = UCASES(LEFTS$(uS, 1) ) 
794・ 1$ = UCASE$S(LEFT$(1$, 1) ) 
795・ TF uS > 1S$ THEN 
796・ PRINT “ 男 久 指 定 び おかしい です . “ 
797: ELSE 
798・ EXIT DO 
799・ END IF 
800: LOOP 
801 : 
802・: LPRINT SPC(10): : LPRINT "キキ * ネ * ネ 傘 録 単 話 リス ト 水 示 ボ " 
803: LPRINT 
804 : 
805: CALL PrintTree(D%, 0, US, 1$) 
806・ 
807: END SUB 
808: 


809: SUE Trans1ate (P%) 


810: 


811: DIMN OneWord AS Node 
812: DIW Spe11(1 TO InfSize) AS STRING * 1 


813・ 
814: DO 
815・ 
816・ 
817: 
818: 
819: 
820・ 
821 : 
822: 
823・ 
824 : 


CLS 


LOCATE JobY1itlieRow, JobTit1eCo1 
PRINT ・ 本 水 ホキ 意味 検索  * * キ * キ *k ル * ネ “ 


LOCATE WordRow , WordCo1 - 6 
PRINT " 単 話 : “ 
LINE (100、140)-(314. 163) , , B 


ソナ ル 単 語 
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825 : 
826: 
827・ 
828: 
829・ 
830: 
831 : 
832 : 
833: 
834 : 
835: 
836 : 
837 ・ 
838・ 
839: 
840: 
841 : 
842: 
843: 
844 : 
845・ 
846・ 
847・ 
848: 
849: 
850・ 
851 : 
852・ 
853・ 
5854 : 
855・ 
856 : 
857・ 
858・ 
859: 
860: 
861 : 
862・ 
863: 
864: 
865・: 
866 : 
867: 
868 : 
869: 
870・ 
871・ 
872: 
873: 
874: 
875: 
876 : 
877・ 
878: 
879: 
880: 
881 : 
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LOCATE MeanRow, MeanCo] - 6 
PRINT "意味 : “ 

LOCATE MeanRow, MeanCo1 

LINE (1。 204)-(620、227)。,.B 


LOCATEF CommandRow , CommandCo1 

PRINT " 単 千 の スペ ル を 入れ て くだ さい 。 

LOCATEF CommandRow + 1, CommandCo1 

PRINTY "(終了 すす る 時 は ビリ オド (. ) を 人 入力 ) “ ・+ SPACEPX(40) 


CALL ReadLine(s$, InfSize, WordCo] , WordRow ) 
OneWord.inf = 5$ 
TF INSTR(OneWword.inf, ".“) THEN EXIT SUB 


LOCATE WordKow . WordCo1 


LengthWord = LEN(RTRIM$ (OneWord.1inf ) ) 
IF LengthWord > InfSize TIEEN LengthWord = InfSize 


FOR ] = 1 TO LengthWord 
Spel11(I) = MID$(OneWword.inf , 1, 1) 
PRINT Spel1 (1): 

NEXT 


S$ = LEFTS(OneWord.1inf, 20) 
where = Search(S$, PD%) 
F where <> 0 THEN 

AccCentPOS = X(where) .aCC 


F AccentPos <> 0 THEN 
LOCATE WordRow, WordCo1 + AccentPos - 1 
COLOR 4 
PRINT Spe1}(AccentPOoSs ) 
COLOR 7 
END IF 


LOCATF NeanRow, MeanCo}1 
PRINT x(where ) . synop 
ELSE 
LOCATE MeanRow , MeanCo1 
COLOR 5 
PRINT この 則 語 は 登録 され て いま せん . ~“ 
COLOR 7 
END ] ド 


LOCATE CommandRow , CommandCo1 

PREINT 何 か キ ー を 押し て く 〈 く ださい. “< SPACES$(40) 
LOCATF CommandRow + 1, CommandCo1 

PRINT SPACE$ (40 ) 


が ) . 
LOOP UNTIL INKEYS <> "^ 


END SUB 
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[ 8 / 終 了 ] を 選ぶ と , メモ リー 上 の 配列 x( ) の 内 容 を 。 フ ロッ ピ ィ ディ スク 上 の 
ンダ ム フ ァ イル に 書き 戻す 処理 を 行っ て 。 こ の プロ シー ジャ を 終わ っ て いま す . 


AU 





単語 帳 の メニ ュー 表示 機能 を は た す 関 数 で す . 単語 帳 の 8 つの 機能 を メニ ュー 
表示 し , カー ソル キー を 上 下さ せ て 機能 を 選択 する よう に し て いま す 。 この 部 分 
の 技法 は 2.1 で 。 印刷 する ファ イル を カー ソル で 選ば せる と き と 同 じ 方 法 を 使っ て 
いま す . この メニ ュー で は さら に ,。 カー ソル キー を 使わ な いで も 。, 機能 名 の 前 に 
表示 され た 1~-8 の 数 字 を キー 入力 し て も , 即座 に その 機能 が 実行 で きる , シ ョ ー 
トカ ッ ト キ ー 入 力 を 受け つけ る よう に な っ て いま す . この プロ シー ジャ は 関数 で 
す の で ,。 コー ル し た プロ シー ジャ に 。 単語 帳 の 機能 に 対応 し た 1 て 8 の 数 値 を 返 
し ます 。 





の 順に 入力 を させ る よう に な っ て いま す . 
単語 の スペ ル と 意味 の 入力 の と き に は , 1 行 編集 プロ グラ ム の モジ ュー ル を 利 
用 する よう に な っ て いま す . この モジ ュー ル の 説明 は 2.4 で 行い ます . 
アク セン ト の 入力 は , SUB プロシージャ GetAccPos を 使っ て いま す . この プロ 
シー ジャ に つい て は , 次 項 で 詳し く 説 明 し ます . 
すでに 登録 済み の 単語 を 再び 登録 する と , 上 書き 処理 が 行わ れ て し まう の で , 
その 前 に 確認 を 求め る よう に し ます . 
まず , 入力 さ れ た 単語 が すでに 辞書 ファ イル に 存在 する か どう か を , サ ブ モ ジュ ー 
ル DIC-AVL. BAS の FUNCTION プ ロ シ ー ジ ャ Search を 使っ て 調べ ます . この 関 
数 は , 辞書 ファ イル に その 単語 が 存在 し な か っ た 場合 に 0 を 返し て きま す . 
し た が っ て , 0 で な い リ ター ン 値 が 返っ て きた 場合 は 。 上 書き し て よい か どう 
の 確認 を 行っ た あと , アク セン ト の 入力 に 移り ます . 上 書き が まず い 場 合 は , 
の 時 点 で この プロ シー ジャ か ら 抜 ける こと が で きま す . 
意味 の 入力 時 に , ミ スス ペル や アク セン ト の 入力 ミス に 気づい た 場合 は , ス ラッ 
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シュ (/) を 入力 する こと に より , ス ペル の 入力 まで 処理 を さか の ぼる こと が で きま 
す . 

3 項目 と も 入力 し 終え て [キー を 押す と 。 その 単語 の スペ ル , アク セン ト お よ 
び 意 味 の す べ て が 確定 し た と みな し , サ ブ モ ジュ ー ル DIC-AVL. BAS の SUB プ ロ 
ジー ジャ Insert を コー ル す る こと に より , 辞書 ファ イル に その 単語 を 登録 し ます . 

この Entry プ ロ シ ー ジ ャ は 全体 が 無限 ルー プ 構 造 に な っ て お り , 単語 の スペ ル 入 
力 時 に , ピリ オド (.) を 入力 する と , 


ITF TINSTR(OneWord.inf,".”) THETN EXTT SUB 


に よっ て 。 プロ シー ジャ を 終わ る こと が で きま す . 






この プロ シー ジャ は , 単語 登録 と 訂正 の 処理 を 行う 場合 , 画 面 上 の カー ソル キー 
を 左右 に 移動 きせ る こと に よっ て ,。 アク セン ト の 位置 を 入力 させ る も の で す . 図 
2.3.14 に プロ シー ジャ の フロ ー チ ャ ー ト を 示し ます 。. 

フロ ー チ ャ ー ト に し た が っ て 。 順に 説明 し て いき ます 。 

単語 の スペ ル は 引数 で 渡さ れ て きま すか ら , ま ず こ れ を 文字 列 配列 Spell( ) に 格 
約 し ます ,.。 これ は , アク セン ト 位 置 を 表示 する の に , その 位置 の 英文 字 を 反転 表 
示さ せる た め , 単語 の スペ ル を 1 文字 単位 で 配列 に し まっ て お いて ,。 アク セス す 
る た めで す . 

アク セン ト 位 置 を 格納 し て お く 変 数 AccPosGet の 初期 値 を , 単語 の 先頭 英文 字 。 
すなわち 1 に セッ ト し て お きま す 。 そし て , その 英文 字 を 反転 表示 し ます . 

ここ か ら DO/LOOP_ UNTIL ルー プ に な っ て いま す . この ルー プ は [キー か , [mc ] 
キー が 押さ れる と 終了 し ます . 同 キ ー が 押さ れ た 場合 は 。 画面 で 反転 表示 され て 
いる 英文 字 の 位置 が AccPosGet に セッ ト さ れ て 返さ れる こと に な り ま す . 

[gsc キー が 押さ れ た 場合 は , ア クセ ント 入力 は パス され た も の と みな し , AccPosGet 
に は 0 が セッ ト さ れ , 反転 表示 を キャ ン セ ル し て か ら 返 され ます . 

ルー プ の 中 は , 押さ れ た キー が [-( 左 矢印 ) キ ー と 品 ]( 右 矢印 ) キ ー の 場合 の 処理 
が 示さ れ て いま す . それ ぞ れ 英 単語 の 長 さ を 越え を な い 問 は ,。 矢印 キー に 対応 し て 
反転 位置 を 移動 させ, AccPosGet の 内 容 を 書き 換え ます . 
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@ 図 2.3.14 SUB GetAccPos の 
フロ ー ナ チャ ー ト し,  】 
_ 文字 列 配列 Spell() に 
単語 の スペ ル を セッ 
ト し て お く 





AccPosGet 1 


AccPosGet の 位置 の 
スペ ル を 反転 表示 す 


a$<-INKEY$ 


IlSe 
円 キー また は 「8IS 
キー か 


True 


ーー 


に 9 キー 










NewAccentPosAccPosGet 一 ] NewAccentPos* 本 AccPosGet 十 1 


Te False 
カー ソル は 単語 の 
スペ ル 内 か 


New Accent Pos の 位 


置 に 反転 表示 を 移動 


AccPosGet* 一 NewAccentPos 


a$<-INKEY$ 


False 


[ESCj] キ ー か 


AccPosGet<-U 


反転 表示 を キャ ン セ ル 


False 2$= に | ポ 
5 一 [ESC] 


。 
に 】 


UC 
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指定 し た い ア クセ ント 位置 の 英文 字 が 反転 表示 され た と ころ で 。[ キ ー を 押す 
この ルー プ を 抜け て 。AccPosGet の 値 に よっ て アク セン ト 位 置 を 返し ます . 





意味 検索 機能 を は た す プ ロ シ ー ジ ャ で す 。 単語 の スペ ル を 入力 する と , そ 
クセ ント 位置 と 訳語 を 表示 し ます . 

も し, 辞書 ファ イル に な い 単 語 を 入力 する と , 関数 Search が 0 を 返し て き 
か ら 。 警告 メッ セー ジ を 表示 し ます . 

この プロ シー ジャ も 無限 DO ルー プ に な っ て いま すか ら , 単 語 の スペ ル の 代 
に ピリ オド (。) を 入力 する と 。 この プロ シー ジャ か ら 抜 け ま す . 





訂正 機能 を は た す プ ロ シ ー ジ ャ で す 。 この プロ シー ジャ で 単語 の スペ ル ,。 アク 
セン ト 位 置 , 意味 の 訂正 が どれ で も 可能 で す . まず 訂正 し た い 単語 の スペ ル を 入 
力 し ます . この プロ シー ジャ に お いて も , 辞書 ファ イル に な い 単 語 を 入力 する と 
関数 Search が 0 を 返し て きま すか ら , 警告 メッ セー ジ を 表示 し ます . 登録 済み の 
単語 で あれ ば アク セン ト 位 置 と 意味 を 表示 し て サブ メニ ュー を 表示 し ます . 

訂正 項目 の 番号 に よっ て , 訂正 処理 を 行い ます . 訂正 の 場合 も SUB Entry と 同 
様 。 ス ペル と 意味 の 場合 に は SUB プ ロ シ ー ジ ャ ReadLine を , アク セン ト の 場合 に 
は SUB プ ロ シ ー ジ ャ GetAccPos を コー ル し ます . 訂正 処理 は | 4 : 訂正 終了 ] を 選 
択 す る まで 何 度 で も 繰り 返し 訂正 で きま す . “4 "を 入力 する と この プロ シー ジャ 
か ら 抜 ける こと が で きま す . 





削除 機能 を は た す プ ロ シ ー ジ ャ で す .。 この プロ シー ジャ に よっ て , 不要 に な っ 
た 単語 を 辞書 ファ イル か ら 削 除 す る こと が で きま す . まず 削除 し た い 単 語 の スペ 
ル を 入力 し ます . その 単語 が 辞書 に 登録 され て いな いと き に は 警告 メッ セー ジ 


登録 きれ て いる 場合 に は 。 アク セン ト 位 置 と 意味 を 表示 する と 同時 に , 削除 し 
て よい か どう か の 確認 メッ セー ジ を 出し ます . 
も し 。 削除 し て よい 場合 に は 。 サブ モジ ュー ル DIC-AVL. BAS の SUB プ ロ シ ー 
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ジャ Delete を コー ル し て 。 辞書 ファ イル か ら 削 除 し ます . 


この プロ シー ジャ を 抜け る に は , 単語 の スペ ル を 入力 する 代わ り に ピリ オド (。) 
を 入力 し ます 。 





辞書 ファ イル を 初期 化す る 場合 に この プロ シー ジャ を コー ル し ます . プロ シー 
ジャ の 先頭 で 誤っ て この プロ シー ジャ を コー ル し た 場合 に そなえ を , 
ジ を 表示 し ます . 





辞書 ファ イル の 初期 化 は , AVL- 木 の 初期 化 と p% を 0 に 設定 し な お すこ と を 行 
いま す . AVL- 木 関係 の 初期 化 は ,SUB プ ロ シ ー ジ ャ InitArray お よび サブ モジ ュー 
ル DIC-AVL. BAS の SUB プ ブ プロシージャ InitEreeList を コー ル す る こと に よっ て 行 





この 2 つの プロ シー ジャ は , 辞書 ファ イル の 内 容 を 指定 し た 範囲 に つい て アル 
ファ ベッ ト 順 に , プ ロ シ ー ジ ャ DispFile は ディ スプ レイ 画面 に . プ ロ シ ー ジ ャ PrtFile 
プリ ンタ に 印刷 させ る も の で す . 

どちら の プロ シー ジャ も まず 表示 する 範囲 を 入力 させ て , それ ら を 引数 に し て , 
プロ シー ジャ DispFile で は サブ モジ ュー ル DIC-AVL.BAS の SUB プ ブ プロシージャ 
DispTree を ,。 プロ シー ジャ PrtFile で は 同じ サブ モジ ュー ル の の SUB プロシージャ 
PrintTree を コー ル し ます . 具体 的 な 処理 は コー ル し た プロ シー ジャ の ほう で 行っ 
て ます . 
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トラ ッ ピ ング を 利用 し て いま す . 以下 に その 概要 を 説明 し ます . 






后 2 





QB プロ グラ ム で エラ ー ト ラッ ピン グ を 行う た め に は , ON ERROR GOTO ス テー 
トメ ント と エラ ー 処 理 ル ー チ ン が 必要 で す . 

ェ エラー 処理 ルー チン は 。 モジ ュー ルレ ベル コー ド の END ス テー トメ ント の あと 
の 。 行 ラベ ル ERREXIT 以 後に 書か ん て いま す . 

この プロ グラ ム で は , 辞書 フ ァイル は B ド ライ ブ に セッ ト す る よう に な っ て いま 
す が , フロ ッ ピ ィ デ ィ ス ク の 入れ 間違い な ど で 。 その ドラ イブ に 辞書 ファ イル が 
存在 し な い 場 合 , この 処理 ルー チン が 働い て エラ ー メ ッ セ ー ジ を 表示 し , 正しく 
フロ ッ ピ イィ ディ スク を 差し 込む せよ うに 師 し ます 。 正しく セッ ト さ れる と , エラ ー 
が 発生 し た 文 に 実行 が 戻る よう に な っ て いま す . 

その ほか の エラ ー の 場合 は , エラ ー 番 号 を 表示 し た あと , ファ イル を クロ ー ズ 
し て , プロ グラ ム の 実行 を 終了 する よう に な っ て いま す . 





理 を 行っ て いま す . 

パー ソナ ル 辞 書 の 使用 中 の ディ スプ レイ 画面 に 。 シス テム 関数 を 利用 し て , 年 
月 日 と 1 秒 ご と の 時 刻 表 示 を 行う も の で す . 

メイ ン モ ジュ ー ル の モジ ュー ルレ ベル コー ド に 。 次 の よう な ステ ー ト メン ト を 
書い て 置い て お きま す . 


ON TTMBR(1) GOSUB DispTime 


また 。 モジ ュー ルレ ベル コー ド に は 。 イベ ント 処理 サブ ルー チン を 記述 し て お 
きま す . 
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そし て , この イベ ント を 実行 し た い 場 所 で , TIMER ON コマ ンド を 記述 すれ ば ぱ , 
INPUT 文 や PRINT 文 で プロ グラ ム の 実行 が 止ま っ た り , TIMER OFF コ マン ド 
で イベ ント を 中 止 し な いか ぎり , 画面 の 指定 し た 位置 に 時 刻 を 表示 し 続け ます . 


P.3.7 プロ シー ジャ の クロ スリ ファ レン ス 


タグ 


メイ ン モ ジュ ー ル の 各 プ ロ シ ー ジ ャ に つい て の 説明 は , 前 節 で 行い まし た . 

し か し , 本 プロ グラ ム は 3 個 の モジ ュー ル か ら 成 り 立 っ て いる た め 。 メ イン モ 
ジュ ー ル か ら 。 サ ブ モ ジュ ー ル の 多く の プロ シー ジャ を コー ル し て いま す . 
パー ソナ ル 単 語 帳 に お ける サブ モジ ュー ル の 説明 は 。2.4 以 降 で 説明 し ます が 
複数 の モジ ュー ル か ら な る プロ グラ ム の 場合 , プロ シー ジャ 間 の 関係 が 複雑 に な 
り ま す の で , 表 2.3.1 に メイ ン モ ジュ ー ル に 関係 する プロ シー ジャ の クロ スリ ファ 
レン ス を 示し ます . 表 の 紋 軸 に は 呼び 出し 側 の プロ シー ジャ 名 と 所 属し て いる モ 
ジュ ー ル 名 が , 横 軸 に は 呼び 出さ れる 側 の プロ シー ジャ 名 と 所 属 モ ジュ ー ル 名 が 
記入 され て お り , プロ シー ジャ コー ル が 行わ れん て いる 個所 に は 〇 印 が 記入 され て 
いま す . 〇 \ 印 は , プロ シー ジャ が , 自分 自身 を 再帰 的 に 呼び 出し て いる こと を 
示し ます 。 

多数 の プロ シー ジャ より な る プロ グラ ム を 作成 し た 場合 ,。 この よう な クロ スリ 
ファ レン ス は , あと で デバ ッ グ を 行う 場合 に た い へ ん 役 に た つも の で す . 

クロ スリ ファ レン ス の 作成 は 。 紙 の 上 で 行う と , 野 線 を 引く だ け で も 面倒 な 作 
業 と な る の で 。 表 計 算 ソ フト ウェ ア 。 た と えば ロー タス 1 - 2 - 3 や マル チ プ ラン 
が る で 生 う ちよ で し ょ う 。 
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メイ ン モ ジュ ー ル 


呼び 出さ れる 側 


呼び 出し 側 





| 1 | pispMenn 


ww 。 
ーー ィ [mmes 
に 人 [人 ササ 
' 
1 


し ーー イト 伝 サー 
| ーー ィ [sss サー 


呼び 出さ れる 側 | サブ モジ ュー ル 


呼び 出し 側 





ReadLine 


ジュ ニル | |] pesesw 


| 1 | ppMenu 。 


Hs ーー 
| (人 [sssw 
| † [mesr 
| ーー ィ [sm‥ サー 
ーー 
| pe-w 


“ 
1 
pc-A 
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〇 * 再帰 的 呼び 出し 


Translate 


PrtFile 


InitArray 


GetAccPos 


Entry 
〇 
〇 


ュー ル 


2 


ンジ 


サブ プ ブ モ > 


Search 


PrintTree 


InitFreeList Insert 


DispTree 


Delete 
〇 
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行 編集 ブロ グラ ム 


3 p.4.| プロ グラ ム の 概要 


単語 の スペ ル お よび 意味 の 入力 や 訂正 な ど , 1 行 の 入力 を 行い た い 場 合 , 通常 
は 1 行 入 力 コ マン ド LINE INPUT を 用 いま す . し か し , LINE INPUT で は 次 の 
よう な 不都合 が あり ます . 

文字 を 入力 中 に , 誤っ て (上 矢印 ルキ ー や L( 下 矢印 ) り キー を 押し て し まう と, 
入力 位置 が ずれ て し まい , 文字 列 が 正しく 入力 で き な く な る お それ が あり ます . 
また ,。 す で に 入力 済み の 文字 列 を 画面 に 表示 させ て , 一 部 訂正 し た い 場 合 も ,。 
この 方 法 で は で きま せん . 

それ を 解消 する た め に は , 面倒 で も 目 分 で プロ グラ ム す る し か あり ませ ん . 
ここ で は 。 1 行 で は あり ます が , 市 販 の エディ タ の よう な 機能 を そなえ た 1 行 
編集 プロ グラ ム を 作成 し て み ま し た . つま り , 左右 矢印 キー に よる カー ソル の 移 
動 , [DELl キ ー に よる カー ソル 位置 の 1 文字 消去 , [8S] キ ー に よる カー ソル 位置 の 左 
文字 の 削除 ,。 お よび カー ソル 位置 へ の 文字 列 の 挿入 と いっ た 機能 を そなえ た 1 行 
エディ グ て す 。 

この よう な 1 行 エ ディ タ は , ほ か の プロ グラ ム に お いて も 有用 な ユー ティ リティ 
に な る と 考え , パー ソナ ル 単 語 帳 と は 切り 放し , 独立 し た モジ ュー ル と し て 作成 
し まし た . し た が っ て , プロ グラ ム 作 成 時 に , 1 行 編集 の 機能 が 必要 に な っ た 場 
合 , この モジ ュー ル を 連結 し て 必要 な 引数 を 受け 渡し すれ ば , 簡単 に 目的 が 達成 
で でき あす 。 

通常 , こ の よう な プロ シー ジャ は , 画面 の アド レス を 直接 アク セス する た め に , 
機械 語 で プロ グラ ム さ れ ま す . し か し , ここ で は , あえ て QB で 書い て み ま し た . 
結果 的 に は 満足 する も の が 得 ら れ ま し た . 

モジ ュー ル は 3 つの SUB プ ブ プロシージャ と 1 つの FUNCTION プ ロ シ ー ジ ャ より 





トブ プ 


イジ 
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c.4 1 行 編集 プロ グラ ム 


な り ま す . 1 行 編集 プロ グラ ム の 本 体 と な る プロ シー ジャ は SUB ReadLine で , 
ほか の モジ ュー ル か ら こ の プロ グラ ム を 呼ぶ た め に は 。, そ の モジ ュー ル の モジ ュー 
ルレ ベル コー ド に お いて 。 次 に 示す DECLARE 文 が 必要 で す . 


DEBCLARE SUB ReadLine (8s1$, BufLien, x0, y0) 


ま た , 実際 に 1 行 エ ディ タ が 必要 な 場所 で は , この SUB プ ロ シ ー ジ ャ ReadLine 
を CALL し ます . 

4 つの 引数 は 次 の よう で す . すなわち , BufLen は エディ タ で 編集 を 行う 文字 数 
(半角 ), x0 と 70 は エディ タ 行 の 左端 の 画面 上 の カラ ム と 行 位置 。 そ し て s1$ が 編集 
する 文字 列 で す . 

た と えば , 画面 の 10 行 目 5 カ ラム か ら 40 文 字 を エディ タ に し て , 文字 列 s1$ を 編 
集 し た い 場 合 は , 


OALL」 ReadLine (s1$, 40, 5, 10) 


と いっ た よう に ,。 1 行 エ ディ タ を CALL す れ ば よい の で す . で は , プロ シー ジャ ReadLine 
の 内 容 を 具体 的 に 見 て いき まし ょ う . 


p 4.P GU ブロ シー ジャ HeadLine 


タグ 


この よう な エディ タプ ブ プログ ラム の 要点 は 次 の よう な こと で す .。 すなわち , カー 
ソル キー( 矢 印 キ ー) に 対応 し て 移動 する こと , 編集 対象 の 範囲 外 ( こ こ で は , 1 行 
の 範囲 | に は カー ソル が 飛び 出さ な いこ と , 漢字 と 半角 文字 と が 混ざっ て も カー ソ 
ル は 正しく 移動 し て 編集 可能 な こと, 特定 の コー ド (ここ で は 品 キ ー(=13) と [mc〕 
キー( 三 27) ) を 除い て は , すべ て の コー ド が 入力 で きる こと な ど で す . 具体 的 に は 
次 の よう に 実現 され ます . 

モジ ュー ル DIC-EDIT. BAS は , 3 個 の SUB プ ロ シ ー ジ ャ , ReadLine, DeleteStr 
お よび InsertStr と 。 1 個 の FUNCTION プ ロ シ ー ジ ャ IsKanii よ りな り ま す . 全体 
の リス ト を リス ト 2.4.| に 示し ます . 

SUB プ ロ シ ー ジ ャ ReadLine は , 1 行 編集 プロ グラ ム の 本 体 と も ちい うべ きも の で , 
図 2.4.1 に ブフ ロー チャ ー ト を が し ます . 
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@ リ スト 2.4 1 サブ モジ ュー ル DIC-EDIT・BAS の 全 リ スト 


: DECLARE SUB DeleteStr (51$, Start%。 Num% ) 
・ DECLARE SUB 1nsertStr (s2$, s1$. PosNum% ) 
DECLARE FUNCTION IsKan11! (c$) 


二 


CONST False = 0, True = NOT False 
SUB DeleteStr (s1$, start% ぇ 。 Num% ) 


F (start% - 1) >= 0O AND (LEN(s1$) - start% - Num% + 1 ) >= 0 THEFR 


ャ ー 
の つの の コツ の の CC の トピ 


S1$ = LEFT$(s1$, start% - 1) + RIGHTS(s1S. LEN(s1$) - start% - Num% + 1) 


=m プルー トー 
ぬく うう リー 


END IF 


まな 
16・ END SUB 
たく 
18: SUB InsertStr (s2$, s1$, PosNum% ) 
19 : 
20 : S1$ = LEFT$(s1S, PosNum% - 1) + s2S + ょ MIDS(s1S, PosNum% ) 
は 天 
2: END SUB 
や か 
24: FUNCTION IsKan]i (Cc$) 
25 ・ TF (c$ >= CHR$(&H80) AND c$ <= CHR$(&H9F ) ) OR (c$ >= CHRS(&HEO) AND c$ <= CHRS(&HFF) ) 
THEN 


26 ・: IsKan]i = True 

27・ ESE 

28: IsKan]1 = Falise 

29: ERD 

30: END FUNCTHON 

に 

32・ SUB ReadLine (s1$、BufLen, xX0、y0O) 
いれ 


34: DTM cO AS STRENG * 1, c1 AS STRING w 1。 c2 AS STRING * 1, c AS STRING * 1 
35: DI 導 1 AS INTEGER 

36: DTI XpDos AS INTEGFR, xtemp AS INTEGPFR 

27: COMST CR = 13、ESC =: 27、BS = 8。 NUL = 6 


38・ 

K に 

40・ CI NM |) 】 MI: ADO』 * 430 

41 : 

42: LOCATE y0, XO 

43・ PRINT s1$ 

44: 

45: DO WILE c] <> CHR$ (CR ) 

46 : 

47・ IF LEN(s1$) >= BufLen THEN 

48: DO 0 

49: LOOP UNTTL INKEYS$ = CHR$(13) 
50 : HF IsKan]i(MID$(s1$, BufLen, 1 ) ) THEN 
9 も : S1$ = LEFFT$(s1$, BufLen - 1) 
5 人 ・ END TF 

53・: EXIT DO 

54 ・ END 』F 

お な 

56: Aga1ln: 

57 * LOCATE YO0, Xpos 、1 

58: 

59 : DO 

60: 8$ = JRNKEY$ 

61・ LOOP UNTIL aS <> 

62・ 

63: TTF LEN(a$) = 2 TIENR 

64 : C1 = LEFT$(a$, 1 ) 

65: C2 = RIGHT$(a$, 1) 

66: ELSE 
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c.4 1 行 編集 ブ プログ ラム 


67・ C1 = 8$ 
68: ーッ 
69・ END IF 
70・ 
8 入 
> F (c1 = CHRS(NUL) AND c2 = “K") TIEEN <- key 
イナ さき? XteBD = XPDOS - 2 
74 : TF xtemD < XO THEN xtemnp = XO 
に が C = MED$(s1$。 xtemD - XO + 1, 1]) 
76 : TF IsKan}ji(c) THEN Xpos = Xpos - 2 ELSE Xpos = Xpos - 1 
人 JF Xpos < XO THERN Xpos = XO 
78・: LOCATE YO, Xpos, 1 
79: GOTO Again 
80: END F 
81 : 
82: IF c1 = CHR$(RUL) AND c2 = “MM THEN ' -> key 
83 : C = MID$(s1$。 Xpos - XO + 1, 1) 
84 : JF IsKan]i(c) THEN Xpos = Xpos + 2 ELSE Xpos = Xpos + 1 
85: TF (Xpos - XO) > LEN(s1$) THER 
86: FsKan]ji(c) THERN Xpos = Xpos - 2 提 SE Xpos = Xpos - 1 
87: LOCATE y0, Xpos, 1 
88: GOTO Again 
89・ END IF 
90: END JEK 
91 ・ 
92: F (cl1 = CHR$(NUL) AND c2 = “S") THEN "DEL key 
93 : 
94 : て = MIDS(s1$, Xpos - XO + 1。 1) 
95: F IsKan11(c) THERN 
96 : CALL DeleteStr(s1$, Xpos + 1 - X0, 2) 
97・ ELSE 記 
98: CALL DeleteStr(s1$, Xpos + 1 - X0, 1) 
99 : END JP 
100: LOCATE yO0, X0, 0: PRINT SPACES(LEN(s1$) + 2)・ 
101 : LOCATE 上 YO0、X0。 0: PRINT s1$: 
102 : LOCATE YO0, Xpos, 1 
103: GOTO Again 
104 : END IF 
105: 
106 : JF (c1 = CHR$(BS)) THERN BS key 
107・ S11aSt$ = Ss1$ 
108: X1aSt = XDOS 
109: Xte 和 D = XDOS - 2 
110・ 寺 XtegD < XO THEN XtLemp = XO 
まま : C = MIDS(S1$。 xtemD - XO + 1、 1) 
112: FIsKanji(c) THEN Xpos = Xpos - 2 ELSE Xpos = Xpos - 1 
113: JF Xpos < XO THEN Xpos = XO 
114: 
115: 8S1$ = LEFTS(s1$, Xpos - XO) + MID$(s1$, xlast - XO +1) 
116: 
3.17・ LOCATE y0, X0, 0: PRINT SPACE$ (LEN(s11ast$) ) ・ 
118: LOCATE YO, X0, 0: PRINT s1$: 
119: LOCATE yO0, Xpos, 1 
120: 
まう みよ: GO7O Again 
122・: END TF 
まる 
124: 
125 F cl = CHRS(NUL ) THEN 
126 : GOTO Again 
まる /・ ELSE 
128: S2$ = &aS 
129・ END IF 
130・ 
431 cli <> CHRS (CR ) THEN 
| 人 か 』F Xpos = (XO + LEN(s1$) ) TIIER 
}33: 8S1$ = 81$ + 5s2S 
134・ ELSE 
まき 6: CALL jnsertStr(S2S, s1$, Xpos - XO + 1) 
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この プロ シー ジャ は ,。 全体 が 大 き な DO WHILE/LOOP に な っ て お り 。, 文字 列 
の 編集 が 終了 し て キ ー が 押さ れる まで , 編 集 を 続け りら れる よう に な っ て いま す . 

また , ルー プ の 先頭 の 部 分 で は , 次 に 示す よう に , エディ タ の 編集 領域 。 す な 
わ ち パラ メー タ BufLen を 越え て , 文字 列 を 挿入 し よう と し た 場合 は , 入力 され た 
文字 列 を 無効 に する よう に し て いま す . また , 同 キー が 押さ れ 編 集 が 終了 し た と 
き に , 図 2.4.2 に 示す よう に , エディ タ の 最大 編集 文字 数 の 位置 が 漢字 コー ド の 1 
バイ ト 目 に か か っ て し まっ た 場合 , その まま s1$ を 返し て し まう と その 文字 が 正 し 
く < 表示 され ませ ん そこ で 関数 tsKanjii を 使っ て チェ ッ ク を 行い 。 も し その よう な 
場合 に は , 最後 の 漢字 1 文字 を s1$ か ら 削 除 し て か ら 返 す よ うに し て いま す ( 図 2.4.3). 


TIR LEN(s1$) >= BufTLen THEN 
DO 
LOOP UNTTL, INKEY$ = CHR$(13) 
TE' TsKan]ji(MTD$(s1$, BufLien, 1)) THERN 
81$ = LEBET$S(s1$, BufLen 一 1) 
BND TEF' 
苔 欠 IT DO 
END TP 


ルー プ の 中 身 は 編集 用 に 押さ れ た キー の 種類 に よっ て , それ ぞ れ IF 文 で 処理 が 
分 けら れ て いま す . 

2.1 の と ころ で も 述べ まし た が , PC-9801 で は 矢印 キー や [BS | キー は 2 バイ ト の コー 
ド が 割り 当て られ て いま す . また 関数 ijNKEY$ も それ ら の キー が 押さ れ た 場合 
2 バイ ト 文 字 と し て 値 を 返し て きま す の で 。 処理 を 振り 分 ける まえ に ,。 次 の よう 
に 。 押 され た キー が 2 バイ ト な ら ば 。 2 つの 1 バイ トト 文字 c1 と cC2 に わけ て お きま 
の 
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P.4 1] 行 編集 プロ グラ ム 
@ 凡 2.4.1 SUB ReadLine の 


アー チア ギャー ド START 


な 5 
又 た 


初期 


口 ! 吊 


END 
























編集 文字 数 が 設定 値 
を こえ た と き の 処 理 


[』」 キ ー が 押 
され た か 





FalSe 


2 バイ ト 文 字 な ら ]1 バ 
イト ずつ に 分 解 


[キー が 押 
ざき ネ た が 


F alse 










oN 科学 欠 カ ー ツ 
ル 移 動 


キー が 押 
され た が 


False 








右 へ 1 文字 分 カー ソノ 
ル 移 動 


カー ソル 位置 の 1 文 
字 削 除 


カー ソル 左 の 1 文字 
削除 





DEL キー が 
押さ れ た か 










その ほか の ファ ン 
クシ ョ ン キ ー か 








F alse 








[キー が 押 
され た か 


カー ソル 位置 に 
文字 列 の 挿入 
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@ 図 2.4.Z 


全角 全角 全角 


ーーー デ ーーー 


の 位置 


エディ タ の 最大 文字 位置 


@ 図 Z.4.3 


全角 全角 


ーーーーーー ベ 


[| 最後 の 半角 は スペ ー ス と な る 





| 
ここ まで の 文字 が 
S1$ に セッ ト さ れる 


IF LEN(a$) = 2 THEN 
LEFT$(a$, 1) 
c2 = RTIGHT$S(a$, 1) 


61 


If 町 S】 計 
C] = a$ 
CZ テー 

BND TH 


さて 。 エディ タ で キー が 押さ れる 場合 は 大 きく わけ て , カー ソル を 移動 させ る 
場合 と , 文字 列 を 削除 する 場合 お よび 文字 列 を 挿入 する 場合 が 考え られ ます . 

この エディ タ で は , まず 矢印 キー が 押さ れ た 場合 の 判断 と 処理 を 行っ て いま す . 
図 2.4.4 に は ,[( 左 矢印 ) キ ー が 押さ れ た 場合 の 処理 を フロ ー チ ャ ー ト で 示し まし 
た 。 図 2.4.5 に は , 円]( 右 矢印 ) キ ー の 場合 の フロ ー チ ャ ー ト を 示し ます . 

どちら も 共通 し て , 編集 する 文字 列 に 漢字 が 混じっ て いる 場合 に , すこ し 工夫 
が 必要 で す . つま り , 文字 列 上 に カー ソル を 移動 きせ る と き , 漢字 の 場合 に は 一 
度 に 2 カラ ム 移 動き せる 必要 が ある か ら で す . こ の こと は [DEL] や や [BS | に よる 文字 列 
の 削除 の 場合 も 同様 の 配慮 が いり ます . 

この プロ グラ ム で は , あ る 1 文字 が 漢字 コー ド ( シ フト JIS コ ー ド ) の 1 バイ ト 目 
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P.4 ] 行 編集 プロ グラ ム 
@ 図 2.4.4 [キー が 押さ れ た 場合 の 処理 @ 図 2.4.5 キー が 押さ れ た 場合 の 処理 


xtemp* ご Xpos 一 Z Ce カ カーソル 位 置 
の 1 文字 


True 


xtermp<x0) ero TruUe 
ガー ジル を ZZ カラ テム 
右 へ 移動 


p 


cC 一 カー ソル 位置 xtemp 


の 1] 文字 
True ー 
カー ソル を 1] カ フ ム 
右 へ 移動 
カー ソル を 2 カラ 」 







則 





に セツ トト 


カー ソル を 1 カラ || を ^ 移 動 
ム 左 へ 移動 カー ソル 位置 が 編 
集 文字 列 s1$ の 長 
True さ を オ ー パ ー し た 
場合 の 処理 


カー ソル を (Xpos,y0 
に セッ ト 


で ある か どう か を 調べ る 関数 。 FUNCTION IsKanii を 作っ て 対応 し て いま す . 

に | キー の 場合 は , 現 カ ー ソ ル 位 置 の 右 隣 の 1 文字 を 関数 lsKanji で 調べ ます . も 
し , この 1 バイ ト が 漢字 コー ド の 1 バイ ト 目 で あっ た と する と 関数 は 値 True を 返 
し て きま すか ら , カー ソル の 移動 量 を 2 カラ ム に し ます . そう で な いと きけ は 半角 
文字 で すか ら カ ー ソ ル 移 動 量 は 1 カラ ム で よい こと に な り ま す . 

[- コ | キー の 場合 は , 現 カ ー ソ ル 位 置 の 2 カラ ム 左 の 1 文字 を 関数 IlsKanji で 調べ , 
True な ら カ ー ソ ル 移 動 量 を 2 カラ ム , False な ら 1 カ ラム に し ます . 

[pgL」 キ ー が 押さ れ た 場合 の 処理 の フロ ー チ ャ ー ト を 図 2.4.6 に 示し ます . この ルー 
チン で は ,。 SUB プ ロ シ ー ジ ャ DeleteStr を コー ル し て いま す . ここ で も 。 削除 する 
文字 が 半角 か 全角 か に よっ て , 削除 する バイ ト 数 が 異な り ま す の で , カー ソル 位 
置 の 文字 を 関数 lsKanii で 調べ て お き , DeleteStr を コー ル す る と き に 。,。 3 番目 の 引 
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数 と し て バイ ト 数 を 渡し ます . 

[BS」 キ ー が 押さ れ た 場合 の 処理 の フロ ー チ ャ ー ト を 図 2.4.7 に 示し ます . この キー 
の 働き は カー ソル の 左 隣 の 1 文字 を 削除 する と 同時 に , カー ソル を 1 文字 分 左 に 
移動 さき せる と いう も の で すか ら , ちょ うど , キー の 働き と [DEL] キ ー の 働き を 合 
わせ た よう な 処理 を 行う こと に な り ま す . 

カー ソル の 左 隣 が 漢字 か どう か の チェ ッ ク は ,。 キー の 場合 と 同様 。 現 カー ソ 
ル の 2 つ 左 の 文字 を 関数 lsKanji を 使っ て 調べ ます . 

この よう に , 押さ れ た キー が [に に | に キー, [DELl キ ー お よび [BS] キ ー の 場合 は 。 IF 文 
で チェ ッ ク さ れ て , それ ぞ れ の 処理 を 施さ きれ , ふた た び ル ー プ の 先頭 の 行 ラ ベル 
Again に 戻さ れ て ,。 次 の キー 入力 を 待ち ます . 

それ 以外 の 2 バイ トコ ー ド の キー 入力 ( 1 バイ ト 目 が CHR$(0) の も の ) は 。 次 に 
示す IF 文 で チェ ッ ク さ れ 無 視 さ れ ま す . その ほか は [キー を 含め , 挿入 文字 列 と 
判断 され ます . 

@ 図 2.4.6 [DE キー が 押さ れ た 場合 の 処理 


C 練 カー ソル 位置 
の 1 文字 


DeleteStr(, , 2) | 






DeleteStr(, , 1) | 


カー ソル を (Xpos,y0) 
に で ゼ ツ ウト 
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p.4 1 行 編集 プロ グラ ム 
@ 図 2.4.7 [BS| キ ー が 押さ れ た 場合 の 処理 


sl]last$<- s1$ 
xlast * 一 XDOS 


xtempe ご Xpos 一 Z 


True 


MM 


C 一 カー ソル 位置 
xtemp の 1 文字 


True 


カー ジル を / カ ラ 
ム 左 ^ へ 移動 


l 








ガー タダ 活 閥 1 カラ 
ム 左 へ 移動 


True 


で 


XDOS ぐ ーx 0 





s1$ 一 カー ソル の 左 ま 
で の 文字 列 土 旧 カ 
ー ソ ル 位 置 xlast か 
ら 右 の 文字 列 


カー ソル を (Xpos,y0) 
に セ ゼット 
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TF' cl] = CHR$S(NUL) THEN 
GOTO Again 

LSE 
8 = a$ 

BND TEF 


押さ れ た キー が [キー の 場合 を 除き 。 カー ソル 位置 に その 文字 を 挿入 し ます . 
カー ソル が 編集 中 の 文字 列 の 最後 尾 の 右 隣 に 位置 する 場合 は , 文字 を 連結 する だ 
け で す が 。 文字 列 の 途中 の 場合 は 。 SUB プ ロ シ ー ジ ャ InsertStr を コー ル し ます . 


6.4.8 その ほか の プロ シー ジャ 


の ア 


その ほか の SUB お よび FUNCTION プ ロロ シー ジャ に つい て 簡単 に 説明 し て お きま 
す 。 


SUB DeleteStr(s1$, start%, Num%) 
この プロ シー ジャ は , 編集 文字 列 s1$ に つい て 。, 削除 する 文字 列 の 先頭 位置 
start と 削除 する 文字 数 Num を 与え を る と , その 処理 を 行っ た あと , 結果 を s1 
$ に セッ ト し ます 。 
SUB InsertStr(s2b, s1$, PosNum%) 
この プロ シー ジャ は , 挿入 前 の 文字 列 s1$ と 挿入 文字 列 S2$8。 お よび 挿入 位 
置 を 与え る と , 挿入 処理 を 行っ た あと , 結果 を s1$ に セッ ト し ます . 
FUNOCTTON TsKan]i(c) 
この 関数 は , パ ラメ ー タ c$ が 漢字 コー ド の 1 バイ ト 目 か どう か 判定 し ます . 
その 場合 は True を , そう で な い 場 合 は False を 返し ます . 
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ダイ ナミ ッ ク バ ラン ス 木 
ら 


2 分 木 に よる 検索 に つい て は 1.7 で 説明 し まし た . その 際 , 情報 が 挿入 され る 順 
序 に よっ て は , 左右 の バラ ンス の 悪い 2 分 木 が で きる こと を 例示 し まし た . 

本 章 で は , 左右 の バラ ンス が と れる よう に 挿入 や 削除 を 実行 する ,。 ダイ ナミ ッ 
ク バ ラン ス 木 と 呼ば れる 方 法 を 説明 し ます . これ は 2.3 の 単語 帳 で 用 いら れ て いる 
も の で す . 

ダイ ナミ ッ ク バ ラン ス 木 は 考案 者 (Adelson-Velskii と Landis) の 頭 文字 を と っ 
て AVL- 木 と も 呼ば れ ま す . 本 文中 で は 以下 , 両方 の 表現 を 適宜 用 いま す . 





p.5.| バラ ンス 木 


多 


"クン 


2 分 木 は 通常 の 植物 の 木 と は 逆 に , 一 番 上 が 根 で 一 番 下 が 葉 で す . 根 か ら 葉 ま 
で , 階層 を 下り る よう に 順に 1 段 ず つ 下 り て 行き ます . 階層 の 深 さ を 表 す の に , 
木 の 高 き ,。 ある い は 単に 高 さ を 定義 し ます . すなわち , 木 の 高 さ と は 根 か ら 葉 ま 
で の 階層 の 数 の こと で す . た だ し , 左右 の 部 分 木 の う ちの 最大 の も の を 指す こと 
に し ます . 図 2.5.1 は 左 の 部 分 木 を た どる と 高 さ 4, 右 の 部 分 木 を た どる と 高き 3 な 
の で 。 木 の 高 さ は 4 と な り ま す . 

@ 図 2.5.| 高 さ 4 の 2 分 木 
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* の 2 


左右 の 部 分 木 の 高 さ は , 等 し い 場合 も あり 等 し く な い 場 合 も あり ます . 第 1 部 
の 図 |.7.9 は , 左 部 分 木 の 高 さ が 0 で , 右 部 分 木 の 高 さき が 5 と な る 極端 な アン バラ 
ンス な 木 の 例 で す . 

左右 の 部 分 木 の 高 さ の 差 が 1 以内 の 2 分 木 を , バ ラン ス 木 と 呼ぶ こと に し ます . 
ダイ ナミ ッ ク バ ラン ス 木 と は , 情報 の 挿入 や 削除 に よっ て , 2 分 木 の 左右 の 高 さ 
の 差 が 1 以内 に な っ て いる こと 。 すなわち バラ ンス 木 の 状態 を 保っ た 木 の こ と を 
言い ます . 


P.5.e 挿 入 


バラ ンス し て いる 木 に 新しい 情報 を 挿入 し ます . 挿入 自体 は , 1.7 で 扱っ た 2 分 
木 へ の 挿入 な の で 難し く 考 える 必要 は あり ませ ん . 新しい 節 が 葉 と し て 付加 され 
る の み で す 。 た だ し 。 それ に より バラ ンス が くず れる こと が ある の で 。 それ に つ 
いて 調べ て み ま す . 

挿入 で は ,。 新しい 節 が 葉 と し て 付加 され る の で , その 葉 を 含む 部 分 木 の 高 さ は 
変わ ら な いか 。 1 だ け 増 加 し ます . 変わ ら な けれ ば , 2 分 木 全体 の バラ ンス は 崩 
れ な い の で その まま に し ます . 1 だ け 増 加 し た 場合 に は , それ まで 高 さ 1 だ け ア 
ン バ ラ ンス で あっ た の が ,。 バ ラン ス す る 場合 と 。 逆 に ます ます アン バラ ンス に な 
る 場合 が あり ます . その 場合 に は 。 バラ ンス する よう に 2 分 木 あ る い は 部 分 木 の 
根 を 入れ 換え る 必要 が あり ます . 

これ ら を 図 で 表し て み ま す . 図 の 中 で 節 の そば に 付 し た 数 字 が 一 1 な ら ぱ , 左 
の 部 分 木 が 右 の 部 分 木 よ り 1 だ け 高 い 。 あるいは 左 に 傾い て いる , 0 な ら ば ,。 左 
右 の 部 分 木 の 高 さき が 等 し い 。 ある い は バラ ンス し て いる ,。 1 な ら ば 右 に 傾い て い 
る と し ます . 節 と 節 を 結ぶ 実線 は 。 すでに で き て いる 2 分 木 の 一 部 , 点線 は 新た 
に 追加 され た 葉 を 結ぶ も の と し ます . 数 字 が 0 ~ 1 の よう に 矢印 で 示さ れる と , 
は じ め バ ラン ス し て いた の が 情報 の 付加 に より 右 へ 傾い た と いう よう に 読む こと 
錠 し ます 。 

図 2.5.2 で は , 情報 の 付加 に より も と も と 傾い て いた 部 分 木 が バラ ンス する 例 で 
す . この 場合 に は , 部 分 木 の 高 さ は 変わ ら な い の で , これ で 処理 は 終了 と な り ま 
天 


タ 
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@ 図 2.5.2 傾い て いた の が バラ ンス する 





図 2.5.3 の 例 で は , 新しい 情報 A が 付加 され た こと に より , それ まで バラ ンス し 
て いた B の バラ ンス が ーー 1 と な り ま す . 0 か ら 一 1 に な る の は , 高き が 増 加 し た こ 
と を 意味 する の で 。B の 親 の C の バラ ンス を 調べ ます . C も 0 か ら 一 1 に 変化 し ま 
す . や は り , 高 さ が 増加 し た こと を 意味 する の で , 親 の 選 の バラ ンス を 調べ ます . 
する と 。 の パラ ンス ほ ー]1 か ら ー2 と な り ま すず す 。 一 は 定 半 し て あり ませ ん が ,。 
左 の 部 分 木 の ほ う が 2 だ け 高 いこ と を 表す こと に し ます . 2 だ け 相 違 が ある こと 
は バラ ンス 木 の 定義 に 反する の で , 1 重 回 転 を させ ます . 

この 場合 に は ,E を C の 右 部 分 木 に 下ろ し ,C の 右 部 分 木 を E の 左 部 分 木 に し ます . 
そし て , E の 親 と C を 直接 結び ます . 図 に 見 られ る よう に , も と の E を 根 と する 部 
分 木 ( 図 で は , 新 し く C を 根 と する 部 分 木 に な っ て いま す が ) の 高き は 変わ ら ず バラ 
シス し まし た 。 し た が っ て 。 木 全体 の パラ ンス すなわち パラ ンス 木 と し て の 人 性 綿 
は 保 た れ ま す 。 

@ 図 2.5.3 1 重 回 転 の 例 





挿入 に よっ て 生ずる バラ ンス の 骨 れ を 修正 する た め に , 1 重 回 転 で は すま な い 
場合 が あり ます .。 バラ ンス が ー 1 か ら 一 2 の よう に 崩れ た 節 の 左 部 分 木の根 の , 
右 部 分 木 に 挿入 が な され た 場合 に は , 回 転 に よっ て 持ち 上 げた 節 の 左 部 分 木 の 処 
理 が 必要 と な り ま す . この タイ プ の 回 転 の 3 つの 型 を 図 2.5.4 の (a), (b), (c) に 示 
し 表す 。 

(a) で は , F を 挿入 する こと に より , H の バラ ンス が ー 1 か ら 一 2 に な り ま す 。 
そこ で ,。 H の 左 の 子 C の 右 部 分 木 を 持ち 上 げ る と , E の 左 の 子 D を 接続 する こと が 
で き な く な り ま す . そこ で 。 E の 左 の 子 を E の 親 の 右 の 子 に し , E を C の 親 と し , も 
と も と C の 親 で あっ た HH を E の 右 の 子 に し ます . そし て ,E の 右 の 子 は HH の 左 の 子 に 
し ます 。 

最終 的 な バラ ンス は , (a) の 右 の 図 の よう に E を 部 分 木の根 と みな し て , バ ラン 
ス は (一 1,。 0,。 0) に な り ま す . (カッ コ の 中 の 一 1 , 0, 0 は , 左 の 部 分 木 の バ ラ 
ンス ,。 親 の バラ ンス ,。 右 の 部 分 木 の バ ラン ス を 表す . ) 

挿入 され る の が , C の 右 部 分 木 , 根 F の 左 の 部 分 木 の 場 合 に は , (b) に 示さ れる よ 
うに 回 転 し ます . (a) の 場合 と 考え 方 は 同じ で す が , F を 部 分 木の根 と みな し た 場 
合 の パラ ンス は 。 (0。0。 1) と な り ま す . 

(c) は 。 この タイ プ の 回 転 処 理 の 特別 な 場合 で 結果 の バラ ンス は (0, 0, 0) と 
な り ま す . 

以上 の 説明 で は , 挿入 が 左 部 分 木 に な され た も の と し まし た が , 右 部 分 木 の 場 
合 も 同様 に 考え られ る の で 説明 は 省略 し ます . 


m.5.3 削 除 


AVL- 木 は 2 分 木 で す の で , 削除 その も の は 2 分 木 の そ れ と 同じ で す 。 た だ し , 
削除 に よっ て バラ ンス が 崩れ る 場合 に は , 回 転 操作 に よっ て それ を 修正 する 必要 
が あり ます . 

は じ め に 。 通常 の 2 分 木 の 削除 の 手順 に 従っ て 節 を 削除 し ます . そし て , 実際 
に 情報 が 除 か れ た 節 を 出発 点 と し て バラ ンス の 調整 を 行い ます . 考え 方 は , 挿入 
の 場合 と よく 似 て いま す . 

削除 の 場合 は , 挿入 の 場合 と は 逆 に , 削除 され る 節 を 含む 部 分 木 の 高 さ が 減じ 
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つ " 


タグ 


@ 図 2.5.4 2 重 回 転 の 3 つの 型 








(c) 
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ます . し た が っ て 。 その 親 の 節 の バラ ンス は 次 の よう に な り ま す . 
削除 に よる 親 の バラ ンス の 変化 


削除 前 の 削除 後 の バ ラン ス 

バ パラ シス 左 の 部 分 木 右 の 部 分 木 
W 一 2 
] ー] 
2 0 


削除 され た 結果 , そ の 親 の バラ ンス が 0, す な わ ち バラ ンス し た 場合 に は 。 
その 部 分 木 の 高 さ が 1 減じ た こと に な り ま す . し た が っ て ,。 木 の バ ラン 
ス に つい て 考え れ ば ,。 アン バラ ンス と な る 可能 性 が ある の で ,。 さら に そ 
の 親 に つい て 調べ る 必要 が あり ます . 

結果 が 1 また は 一 1 に な っ た 場合 に は , その 部 分 木 の 高 さ は 変わ ら な い 
の で 。 調整 は 終わ り で す . 

結果 が 2 また は 2 に な っ た 場合 に は 回 転 処理 が 必要 に な り ま す . 






上 の 3 つの 場合 を 図 2.5.5 の (a),(b), (c) に 例示 し ます . ※ 印 が 削除 され る 節 を 
表し ます . バラ ンス の 変化 を 挿入 の 場合 に な ら っ て 一 1~0 の よう に 表し ます . 
@ 図 2.5.5 削除 に よる バラ ンス の 変化 





(a) (b) 


も う 少 し 具体 的 に 削除 の 手順 を まとめ る と , 次 の よう に な り ま す . 
STEP1 削除 すべ き 節 を 発見 する . 
STEPP 削除 する 節 の 左 部 分 木 が な けれ ば , 右 部 分 木 を 持ち 上げ る . さも な く 
ば , 左 部 分 木 の 最大 の 節 を 回 転 する . 
(STEP1, STEP 2 は , 2 分 木 の 削除 の 手順 で ある . STEP 3 以降 に て バラ ンス 
の 調整 を 行う .) 
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P.5 ダイ ナミ ッ ク バ ラン ス 木 
削除 され た 節 の 親 の バラ ンス を 調整 する . 削除 の 結果 親 が バラ ンス し 
た な ら ば , その 節 を 含む 部 分 木 の 高 さ が 1 減じ た こと に な る の で , さき 
ら に その 親 を 調べ る . さも な くば , STEP 4 へ . 
親 の バラ ンス が ーー 1 また は 1 な ら ば 調整 は 終わ り で ある . 
親 の バラ ンス が ーー 2 また は 2 な ら ば , 回 転 処理 で 再 調整 する . 以下 の 
説明 で は , 左 の 部 分 木 か ら 削除 され , バラ ンス が 一 2 と な っ た も の と 
し て 説明 する . 
図 2.5.6(a) に お いて , 節 B が 削除 され , その 結果 と し て EE の バラ ンス が ーー 
1 か ら ー2 に な っ た と する . この 場合 , セ の 右 の 子 P の も と も と の バラ 
ンス の 状態 に よっ て 次 の よう に 処理 され る ((a) で は P は バラ ンス し て い 
る ). 
[ケー ス 1] 0 (バラ ンス し て いる ) (1 重 回 転 ) 
P を 部 分 木の根 と する よう に 持ち 上 げ , E を P の 左 の 子 , P の 左 の 子 を E 
の 右 の 子 に する . バラ ンス は , P を 根 と し て (1, 一 1, x) と な る (x は P の 
右 部 分 木 の も と も と の バラ ンス )、. 
[ケー ス 2] 1( 右 に 傾い て いる ) (1 重 回 転 ) 
ケー ス 1 と 同様 で ある が , 結果 の バラ ンス が (0, 0。x) と な る (x は P の 
右 部 分 木 の も と も と の バラ ンス ). 
[ケー ス 3 ] 一 1 ( 左 に 傾い て いる ) (2 重 回 転 ) 
H を 部 分 木の根 と する よう に 持ち 上 げ , E を その 左 部 分 木 , P を 右 部 分 
木 と する よう に 2 重 回 転 する ( 図 2.5.6(c) 参 照 ). 結果 の バラ ンス は, H 
の バラ ンス に よっ て 次 の よう に な る ( 図 (cO で は , の バラ ンス は 一 1 で 
ある ). 


は じ め の H の 
バラ ンス 





結果 と し て 。 部 分 木 が バラ ンス し た (=0) な ら ば ( 図 の (b) と (cc の よう な 
場合 )。 STEP 3 へ 戻る . さも な くば 。 終了 する , 
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@ 較 2Z.5.6 回 転 に よる バラ ンス の 調整 
ーーg] _-^(P) 
すす) 0(P) LE] 1( ) 
> 
の (て ) し oO ()( い ) (の 
の りう (の 〇 の OO の の 6⑨0 の OO 和 


0。9 





し 4 考 
(a) 
li 各 の ( ゆ 
-1 つ 0 (p) \ ゆ (5 1 
(うぅ っ @ や OCG 
みみ の た ん 9 @⑤O 〇 OO OO 
いい りう ひひ 〇 で 
(b) 意 
コーー5 6] 
-120(p)  -1(P) 
ー] 
5O( の (ゆり) て ( り ) 
の 。 (ひひ 〇 〇 CC 
和 
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ZZ ン 


ググ 


5 ダイ ナミ ッ ク バ パラ ンス 本 


NN p 5.4 ブロ グラ ミン グ 


AVL- 木 を 利用 し た 検索 プロ グラ ム の 要点 に つい て 説明 し ます . 

デー タ 型 node の 宣言 や COMMON 定 言 に つい て は , 2.8 で 説明 され て いま す の で , 
ここ で は 省略 し ます . また , 未 利 用 の 要素 や 削除 され た 要素 を 自由 リス ト に 加え 
て お く 方 法 に つい て は , 1.7.3 で 述べ まし た の で , そちら を 参照 し て くだ さい . 
は じ め に , プロ グラ ミン グ の 方 針 を 述べ ます . 2 分 木 の 所 で は , アル ゴリ ズム 
の 再帰 性 を 利用 し て 再帰 的 に プロ グラ ム し まし た が , ここ で は 文献 ( 1) に な ら っ 
て 。 非 再帰 的 に プロ グラ ム し ます 。 本 書 の プロ グラ ム で は , 再帰 的 プロ グラ ム で 
も 差し 支 を あり ませ ん が , 実用 的 な プロ グラ ム で は ,。 再帰 呼び 出し ど と に スタ ッ 
ク が 大 量 に 消費 され る と いっ た こと が 生ずる の を 避 ける た め に , 非 再帰 的 な プロ 
グラ ム と し ます (単語 帳 プ ログ ラム で は , 1 語 分 の メモ リ が 呼び 出し ご と に 消費 さ 
れ 。 すぐ スグ ッ ク め 必 り 人 ながく な っ て し まっ た )。 

挿入 の 場合 で も 削除 の 場合 で も , 挿入 ある い は 実際 に 削除 され る 節 が どの 節 の 
子 に な っ て いる か を 知る 必要 が あり ます . し た が っ て , 対象 と な る 節 を 捜す まで 
に た どっ た 道順 を 。 大 域 的 な 変数 (SHARED 宣 言 さ れ た 変数 ) に 保存 し て お く 必 要 
が あり ます . その た め の 2 個 の 配列 と 1 個 の 単純 変数 を 次 の よう に 宣言 し て お き 
ます . 


DIM SHARED path(20) AS INTEGER 
DIM SHARED direction(20) AS INTEGER 
DTIM SHARED evel 


これ ら の 変数 の 働き を 調べ る た め に , 図 2.5.7 の 挿入 を 例 に と り ま す . 図 で は 節 
J を 根 と し ます . 図 の 中 の で 囲ま れ た 数 字 は , 節 が 格納 され て いる 配列 の 添字 で 
Dj 

は じ め に , 挿入 すべ き 情 報 “C" が 格納 され る 位置 を 捜し ます . プロ グラ ム 中 で 
は , 関数 search を 用 いま す . 図 か ら 直 ち に ]」 の 左 の 部 分 木 , G の 左 の 部 分 木 。…… 
と た どっ て いっ て , D の 左 の 子 の 位置 に お か れる こと が わか り ま す . 自由 リス ト か 
ら 添字 14 の 配列 要素 が 利用 で きる と する と ,。 path( )。 direction( ), level は 。 次 の 
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@ 図 2.5.7 挿入 の 例 . ① が 根 , 〇 が 挿入 され る 
ーi ぐら 
ー ュ (se ) 四 …、 
I-2( g ) Ch) 
ひ の 0・-1(E) 0( 
0…-1( p ) 当 (r ) 四 


(<)“ 


よう な 値 を も っ て いま す . 








変数 level は , 根 か ら 数 えて 6 番目 の 節 に 情報 “C" が 格納 され る の で , 最終 的 に 
は 6 の 値 を 持っ て いま す . path( ) は 各 節 の 配列 添字 , direction( ) は 節 を た どる 方 
向 で , 一 1 は 左 , 1 は 右 , 0 は そこ で 終わ り を 表し ます . 

2 分 木 の 場 合 に は , D の 左 に C を 接続 し て 終了 で す が ,。AVL- 木 で は 。 バラ ンス 
の 調整 が 必要 で す . この 例 は , 図 2.5.4(b) に 同じ 型 な の で 。 2 重 回 転 が 生 じ ま す . 
2 重 回 転 に 至る まで の 手順 は 次 の よう に な り ま す . 

挿 信 され た 節 C の 親 は D で す . それ は ,。 path(5) に より 知ら れ ま す . プロ グラ ム 


ふう に 書け ば 。 
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c.5 ダイ ナミ ッ ク パ ラン ス 木 


]evel = leVel-1 (level = 5) 
if x(path(level)).weight = balanced then 
X(Dath(level)).weight = direction(leve]) 


end if 


と し て 。 D の 調整 を し ます . ここ に ,。 balanced は 記号 定数 で 0 と し ます . D は バラ 
ンス し て いて 。 その 左 に C が 接続 きれ まし た . “その 左 " と いう 情報 は 。 direction 
(5) に 入っ て いま す 。 同様 に し て , E の バラ ンス も 一 1 に な り ま す 。B に つい て は 。 


1]evel = level-1 (1evel = 3) 


if x(path(level)).weight = direction(level) then 


X(Dath(level)).weight = -direction(leve]) 
x(path(level 十 | ) ). weight = balanced 


と な り ま す . 節 B は , バ ラン ス が 1, すなわち 右 に 傾い て お り , その 右 の 部 分 木 に 
節 じ が 挿入 され た の で 。 傾き が 2 に な っ て し まい ます . プ ログ ラム 上 は 。 2 に し な 
いで 2 重 回 転 を さき せま す . 

path( ) と direction( ) は ,。 この よう に し て 挿入 され た 節 の 親 を 順に た どる た め に 
利用 きれ ます . この 考え は , 削除 の プロ グラ ム で も 同様 で す . 

level=3 の 場合 に , 実際 に 2 重 回 転 さ れる 部 分 を 追跡 し て み ま す . プロ シー ジャ 
doublerotation の 内 部 を 順に 分 解 し て 説明 し ます (リス ト 2.5.1 参 照 の こと ). その 
よう す を 図 2.5.8 の (a) て (d) に 示し ます . 〇 の 節 が path( ) で 指 さ きれ て いる も の で す 。 

は じ め に プロ シー ジャ ConnectNode(3-1, path(3 十 2), p%) が 実行 され ます . 
path(5) は 節 D を 指し ます . D を level= ニ 2, すなわち 節 G の 左 の 子 と し ます ( 図 2.5.8 
(5)). 

次 に 。 プロシージャ PExchangeNode(3。 5) に より ,。 path(5) の 子 を path(3) の 子 
に し , path(3) を path(5) の 子 に し ます . 左右 の 別 は , direction(3) に 従い ます ( 同 
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@ 販 2.5.8 


Ilevel level 





ExchangeNode(3,5) ExchangeNode(4,.5) 
(c) (d) 
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Co ダイ ナミ ニック の バ ラッ シス 木 

図 (c) ). 

最後 に プロ シー ジャ ExchangeNode(4, 5) に より ,path(5) の も う 一 方 の 子 を path 
(4) の 子 に し , path(4) を path(5) の 子 に し ます . 左右 の 別 は 。direction(4) に 従い 
ます ( 同 図 (d) ). ( 注 : 図 (0) で は , path(5) の も う 一 方 の 子 は な い の で , 描か れ て 
いま せん 。) 

配列 path( ) と direction( ) の 大 き さ は , 木 の 節 の 数 を N と する と ,。 4 ※Xlog。N 程 度 

れ ば 充分 で す . 

プロ グラ テム リズ ト を リス ト 2.5,1 に が し ます 。 これ は , 2.9 の サ プ モ ジェ ュー ル と 
し て 使用 きれ る も の な の で , AVL- 木 の 処理 以外 に PrintTree と か DispTree が 含ま 
れ て いま す . それ ら は , 基本 的 に は , 1 .7 の 2 分 木 の そ れ と 同様 の アル ゴリ ズム を 
使用 し て いま す 。 し た が っ て , 解説 は 省略 し まし た . 
@ リ スト 2.5.1 AVL- 木 処理 モジ ュー ル 


・ DECLARE FUNCTION IsKan]1! (Cc$) 

DECLAREF SUB AddNodeToFreeList (where% ) 
DECLARE SUB AddPath (DirNow' ) 

DECLARE SUB AdjustBalances (DS) 

DECLARE FUNCTION MaxNode! () 

DECLARE SUB DoubleRotation (1! , DS) 
DECLARE SUB InitFreeList () 

・ DECLARE SUB Delete (s$, p%, f%) 

DECLARE FUNCTION GetNode! () 

10: DECLARE SUB Insert (5$, b%, CS, Ds) 

11 : DECLARE SUB PrintTree (DP%, depth!。 US 15) 
12・ DECLARE FUNCTION Search! (Item$。 Ds) 

13: DECLARE SUB ConnectNode (1eve1%, NodeNo%, D%) 
14: DECLARE SUB ExchangeNode (a, b) 

15: DECLARE SUB Rotation (1, PD%) 


で の っ の の が 心 ら の OFP 


17: CONST InfSize = 20 

18: CONST SynopSlze = 70 

19・ CONST ListSize = 100 

20: CONST balanced = 0。 1eft = -1,。 right = 1, Ni = 0 
21: CONRST false = 0, true = NOT false 

22: CONST PCo] = 30 

23: CONST DCol = 52 


25 : TYPE Node 

26:  #nf AS STRING * InfSize 

27: acCc AS INRTEGER 

28: Synop AS STRING * SynopSize 
29: 1eft AS INTEGER 

30: right AS INTEGER 

31: weight AS INTEGER 

232・ ERD TYPE 

34: DTI SHAREFD path(20) AS INTEGER 
35: D 天 SHARED direction(20) AS INTEGER 
26: DI x(ListS1ze) ASNode 

37・ Di SHARED }eve1 

39: COWNON SHARED xX() AS Node 


41: DEFIRNT W 
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42: 
43: 
44: 
- 45: 
46 : 
47・ 
48: 
49 : 
50: 
な : 
トナ 
に 
54 : 
あき : 
56 : 
5 4 : 
58・ 
S9・ 
60: 
61 : 
62・ 
63: 
64 : 
65: 
66: 
67・ 
68: 
69: 
70: 
前 
の を 
か を 
74・ 
すき 
76 : 
『 か 
78: 
ん の 
80: 
81 : 
82: 
83: 
84 : 
85: 
86・ 
87 : 
85: 
89: 
90・: 
91 : 
92・ 
93: 
94 : 
95 : 
96・ 
97・ 
98 : 
99: 
100 : 
101 : 
102: 
103: 
104 : 
105: 
106 : 
107: 
108: 
109: 
110: 
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SUB AddNodeToFreeList (where ) 
X(where).right = x(0).right 
X(0).right = where 

END SUB 


SUB AddPath (DirNow ) 
direction(1ieve] ) = DirNow 
1evel] = leve] + 1 
JHF DirNow = ]eft THERN 
nn = Xpath(leve] - 1)).]eft 


= X(Dath(leve] - 1)).right 


direction(leve] ) = 0 
END SUB 


SUB AdjustBalances (Dp%) 
ag81n: 


"== ェ = StGD 3 === ー ふ 6@66 DagG ZU3 


FOR 1evel = leve〕 - 1 YO 1 STEP -1 
PathNow = path(leve] ) 
SELECT CASE xX(Pathhow ) .weight 
CASE balanced 
JF direction(1leve] ) = 1eft THEN 
X(PathhNow) .weight = right 
ELSE 
X(PathNow) .weight = 1eft 
END IF 
CASE 1eft 
IF direction(1eve1 ) = 1eft THER 
X(PathNow).weight = balanced 
ELSE 
X(PathNow).weight = 1eft + jeft 
END jF 
CASE right 
TF directlon(1eve1 ) = left THEN 
X(PathNow) .weight = right + right 


9 
X(PathNow).weight = balanced 
ENRD IF 
END SELECT 
半 x(PathNow ) .weight <> baianced THEN 
EXTIT FOR 
ERD IF 
REXT jeve} 


'=== Step 4 === Rebalancing _sSee Dage 203 


LeVe1Now = 」eve] 
DirNow = direction (LevelNow ) 
WeightNow = X(PathNow ) .weight 


IF WeightNow = left OR WelightNow = right OR 1evel <= () THEN 


EXIT SUB 
END JF 
` Now、 tree is unbalanced. 
"Sea&rCh target node R 
"を ェ = ェ GtGD 5 = ェ = ー>S66 DGa8G Z03 


CALL AddPath( -DirNow ) 


TargetWelght = X(path(level ) ) .weight 
SELECT CASE TargetWeight 「 
CASE balanced 、 rotation (CaSe 1), Fig.2.5.6(8) 
CALL Rotation(jevel - 1, Ds) 
Xipath(1eve] ) ) .weight = DirNow 
Xtpath(level] - 1)).weight = -DirNow 
CASE -DirNow ′ YOLtation (Case 2), Fig.2.5.6(b) 
CALL Rotation(leve] - 1, PD%) 
X(path(1leve] ) ) .weight = balanced 


Eb ダイ ナミ ニッ ツク パラ ンス 洒 


まま X(path(]1evel - 1)).weight = balanced 
まま を ・ 

113・: CASE DirNow "double rotations (case 3) 
114・: CALL AddPath(DirNow ) "Otated node 
135: TATgetWelight = X(path(leve1 ) ) .weight 

116 : CALL DoubieRotation(leve] - 2,。 D%) 

ます 7 - 

118: X(path(lieve] ) ) .weight = balanced 

119: SELECT CASE TargetWeight 

120・ CASE DirNow 

まま ・ X(path(level] - 1)).weight = -DirNow 


122・ X(path(leve] - 2)).weight = balanced 

1 2 CASE -DirNow 

124・ X(path(leve] - 1)).weight = balanced 

125: Xtpath(level] - 2)).weight = DirNow 

126・: CASE balanced まま 当 の 、 ゆ 。 な も C) 
127・ X{Ppath(level] - 1)).welght = balanced 

128: X(path(leve] - 2)).weight = balanced 

129: END SELECT 

130: END SELECT 

131 : 

132: '=== Step 6 === See Dage 203 
133: TF X(path(LevelNow)).weight = balanced AND LevelhNow > 1 THFN 
134・ PRINT "LevelNow=“: LevelNow 

335: level = LevelNow 

136 GOTO agaih 

137: END j ド 

138: END SUB 

139: 

140: DEFSNG W 


141: SUB ConnectNode (1%, NodeNo%, p%) 'Connect Nodeko'th node to path(1)'th node 
142・ IF 1% = (0 TIHEN 


143・ Ps = NodeNo え 

144: EISE 

145 : IF direction(1%) = 1eft THEN 
146: X{path(1%) ) .1eft = hodeNo% 
147: ELSE 

148: X(path(1%) ) .right = NodeNo% 
149: END TjF 

150: END IF 

151 : END SUB 

12: 

人 


154: SUB Delete (t$, p%, fs) 

155・ DEFINT W 

156・ f% = tFUG 

ょ 57 : 53 = t$ + SPACE$(InfSize - LEN(tS$) ) 
158: TF p% = 0 THEN 


159: f% = falSe 

160: EXTT SUB 

161 : END F 

162・ 

163: === SteD 1 === ( ー>See pa 

164: DeietedNOde% = Search(s$, DX) 「 「 Da59 2 
165: DeletedLeve] = 1eve] 

166 : EF DeletedNOde% = 0 TEHEN 

167: f% = falSe 

168: EXIT SUB 

169 : END す ド 

170・ ' に 

すえ * 省 軍 SteD の な な ャ _ ふ QA n っ の 
まく 下 xX(DeietedNOde%) .jeft = Ni] THEN 「 「 99 Pag6 Z02 
173・ CALL ConnectNodetDeletedLeve] - 1, x(DelietedN0de%) .right, ps) 

174: X(x(DcletedNOde%) . right).welght = X(DeietedNOdes) . weight 

175: ELSE ′ search MaXNode in 1eft-tree 

176・ | WheTG = 剤 AXNode 「 

2 の CALL ConnectNode(level - 1, X(where).1eft, Ds) 

178: X(where).1eft = X(DeletedNOde%).ieft 


2 X(where).right = X(DeleredNOde%) .r1ght 
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180 : CALL ConnectNode(DeletedLeve」 - 1, where, D%) 


181 : path(DeletedLeve] ) = where 

182: X(where).weight = X(DeletedNOde%) .weight 
183 : END JF 

184 : 


185: CALL AddNodeToFreeList(DeletedNOdes ) 
186: "=== SteD 3...6 === 

187 : CALL AdjustBalances(D% ) 

188 : 

189: END SUB 

190: 

191: DEFSNG W 

192: SUB DispTree (p%, depth, uS, 1$) 

193・ 

194: MD] 拓 Spell1(1 TO InfSize) AS STRING * 1 
195: DIM Cc AS STRING * 1 


196・ 

197 : TF p% <> 0O THEEN 

198 : 

199: CALL DispTree(X(p%) .left、 depth + 1。 US, 1$) 

200・ 

201 : 

202・ WOTd$ = X(PD%) .1inf 

203: Head$ = UCASE$ (LEFT$(wordS, 1) ) 

204 : ACCIDt = X(D%) .aCC 

205 : 

206: JF Head$ >= u$ AND Head$ <= 15S THEN 

207・ 

205 : #OR } = 1 TO InfSize 

209: _Spel11(1) = MIDS(word$, 1, 1) 

210: NEXT 1 

本 た まさ 

2 は 2・ PRINT SPC(5)・ 

213: FOR 1 = } TO InfSize 

214・ F Accnt = 1 THEN 

215・ COLOR 4 

216 : PRINT Spel1 (1 ) : 

2 ます : ' COLOR 7 

218: 、  、 お た 

219: 「 _PRINT Spe11 (1 ): 

220 : 「 END jF 

221 ・ NEXT1i 

222・ 

2 TF LEN(RTRINS(X(p%) .synop) ) > DCo] THEN 

24・ 

2 な な C = MHDS(X(p%) .synop, DCo], 1 ) 

226 : 

レア で F Iskan]i(c) THFN 

228・ 

229: PRINT USING “": @ , LEFTS(x(p%) .synop,、 DCo} - 2) 
230: PRINT SPC(25): : PRINT USING " @": MIDS(X(Pp%) .synop, DCo1 - 1) 
231 : ESE 「 

232: _ PRINT USINC ": @": LEFTS(x(P%) .synop, DCo1 ) 
2 き : - TRINRT SPC(25): : PRINT USING " @": MIDS(x(p%) .synop, DCol + 1) 
234・ ! END F 「 
236 : _ PRINRT USTING “"・ @": x(pS) .synop 

きま E 導 0 ま F 「 

238: " 。 

239: END IF | 

240: トト 「 

241・ CALL DispTree(X(p%) .right, depth + 1, u$S, 1$) 
242: ItItctcI1cSctctct+† ぃ 

243・ 1 

244 : END SUB 

245: 1 | 

246: SUB DoubleRotation (1 , p%) 

247・ 


248: CALL ConnectNode(1 - 1, path(1 + 2), p%) 'Connect path(1+2) to path(1-1) 
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249 : CALL ExchangeNode(], ] * 2) *Connect path(1) to path(1+2) 
250: CALL FxchangeNode(] * 1, 1 + 2) path (1 ) to path(1+2 ) 
251 : 
252・ END SUB 
253 : 
254・ SUB ExchangeNode (4, b) 
255 : 
256・ TF direction(a) = 1eft THEN 
257・ xtpath(a)).1eft = X(path(b)) .right 
258: X(path(b)).right = path(a) 
2 ら 59・ ELSE 
260: x(path(a)).right = X(path(b)) .1eft 
261 : X(path(b) ) .1eft = path(8) 
262: END EF 
263:・ ERD SUB 
264 : 
265: FUNCTION Gethode 
266 : 
267・ GetNode = X(0) .right 
268 : X(0).right = X(X(0).right) .right 
269: 
270: ERD FUNCTIOR 
と で な 
272・ SUB InitFreeList 
ざま FOR 1 = 1 TO ListSize 
274・ X(}1 - 1).right = 1 
お NEXT 1 
276・ x(ListSize).right = 0O 
た すく 
278・ END SUB 
279・ 
280: SUB Insert (aS$, b%, CS, DP) 
281 ・ 8$ = 8$ + SPACE$(InfSlize - LEN(a$) ) 
282・ where = Search(S$, D%) 
283 : F where <> 0 THEN 
284 : X(Wwhere).8CC = Ds 
285・ X(where).SyYnhOPD = CS 
286 ・ EXIT SUB 
287・ END 』F 
288・ where = GetNode 
289・ TF where = 0O THEN 
290: PRINT “No room!i! Aborted.“ 
291 : EXIT SUB 
292 : END JF 
ビス - Add a new Kode to Kihe 」owest 1eve] 
294・ X(where).inf = S$ 
295 : X(where).aCC = b% 
296・ X(where).SyhOoD = Cs 
297 : X(where).1eft = N1l 
298 : X(where).right = Ni1 
299: X(where).weight = balantCed 
300・: eVvel = eVve} + 1 
301 : path(1eve] ) = where 
302 : direction(1evel ) = balanced 
303: 
304: 「 Connect path(level) to path(level -1 ) 
2 CALL ConnecthNode(leve] - 1, path(leve1 ) , D%) 
06: 
307・ FOR leve] = leve1 - 1 YOD 1 STEP -1 
308: Weight = X(path(leve] ) ) .weight 
309・ TF weight = Qirection (levc] ) THEN 
310・ IF direction(1eve] ) = direction(}jeve] + 1) *HEN 
311 ・ CALL Rotation(1leve], Ds) Fig.2.5.3, Outside 
312・ X(path(1eve} ) ) .weight = balianced 
313: X(path(level + 1)).welght = balanced 
314 : ELSE 
3 まく CALL DoubleRotation(level, PD%) Fig.2.5.4(8) 
316: X(path(level + 2)).welight = balanced 
317: IF direction(levei + 1]) = direction(leve] + 2) THER 
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318: 
319: 
320: 
321 : 
トイ 
323 : 
324 : 
325: 
326 : 
327・ 
328 : 
329・ 
330: 
331】 : 
332 ・ 
333 : 
334 : 
335・ 
336 : 
さき すく 
338・ 
339 : 
340・: 
341・ 
342・ 
343・ 
344 ・ 
345・ 
346・ 
347 
348・ 
349: 
350・ 
351 : 
GbZ に 
95 は: 
354 ・: 
K に に 
356 : 
の ひく 
3568・ 
J59・ 
360 : 
361 ・ 
362 : 
363 
364 ・: 
365・ 
366 : 
367・ 
368・ 
369 : 
370: 
3 すま 
ト きか 
に ぎ か 
374 : 
な の ょ た は > 
376 : 
を き 全 
378・ 
379・ 
380 : 
381 ・ 
382・ 
383・ 
384 : 
385 : 
386 ・: 
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X(path(1eve] ) ) .welght = balanced 「 
X(path(ieve] 1)).weight = -direction(1leve] + 1) 
ELSEIF direction(1eve] + 2) <> balanced THER 
Xpath(leve} ) ).weight = -direction(level) Fig.2.5.4(b) 
X(path(leve] + 1)).weight = balanced 
ELSE 


(path(1eve1 ) ) .weight ・ balanced * Fig.2.5.4(c) 
X(path(leve] + 1)).weight = balanced 
END IF 


END F 
EXIT SUB 
END jF 
TF weight = balanced THEN 
X(path(1eve] ) ) .weight = direction(1level1) "balanced -> right/1eft 
ELSE 
X(path(jieve] ) ) .weight = balanced まま まな は 
EXIT SUB 
END JF 
NEXT leve1 


END SUB 


FUNCTION MaXNode 
WheTe = X(Dath(leve1 ) ) .1eft 
DO WIILE where <> 0 
1eVve] = Ileve] + 1 
path(leve} ) = where 
direction(1ieve] ) = right 
where = X(Wwhere) .Fight 
LOOP 
NaXNode = path(leve] ) 
END FUNCTION 


SUB PrintTree (p%, depth, u$, 1$) 


DIM Spe11(1 TO InfSize) AS STRING * 1 
DI 上 UI C AS STRING * 1 


IF p% <> 0 THEN 
CALL FrintTree(X(p%) .1eft, depth + 1, ut, 1$) 


WOTd$ = X(D%) .1nf 
Head$ = UCASE$ (LEFT$(word$, 1) ) 
AcCht = X(D%) .acC 


TF Head$ >= u$ AND Head$ <= 1S THEN 


FOR 1 = 1 TO InfSize 
Spe11(1) = MIDS(word$, 1!, 1) 
NEXT 1 


LPRINT SPC(5): 
FOK } = 1] TO InfSize 
IF Accnt = 1 THEN 
LPRINT CHRS(27) ・ "X": Spe11(1): CHRS(27) ・ "Y": 
LPRINT Spe11 (1} ) : 
END JF 
NEXT 1 


JF LEN(RTRIM$(X(p%) .synop ) ) > PCo] TIIEN 
C = MIDS(X(D%) .syhop, PCo1 , 1 ) 


TF IsKan}j1(c) TEN 
LPRINT USING “": @": LEFTS$(X(p%) .synop. PCo] - 2) 


E.5 ダイ ナミ ッ ク パ ラン スズ 木 


387・: LPRINT SPC(25), : LPRINT USING " @": MID$(X(p%) .synop, PCo] - 1) 
388: ELSE 5 
389: LPRINT USING “: @": LEFTS(X(DpS) .synop , PCo] ) 
390・ LPRINT SPC(25): : LPRINT USING " @": MED$(X(p%) .synop, PCo] + 1) 
のり 1 ・ END JF 
392・ ELSE 
393 : LPRINT USING “: @ : X(P%) .synop 
394・ END IF 
395・ 
396 : END IF 
397・ CALL PrintTree(X(p%) .right, depth + 1, u$, 1$) 
398・ END IF 
93 : 
400: END SUB 
401 : 
402: SUB Rotation (1, ps) 
403: 
404: CALL ConnectkNode(1 - 1, path(} + 1) , p%) "Connect path(]+1 ) to path(1-1 ) 
405: CALL ExchangeNode(], 1 + 1 ) "Connect path(] ) to path(1 ょ 1 ) 
406・: 
407: END SUB 
408・: 
409: FUNCTION Search (item$, p%) 
410: where = PD% 
411 : leve] = 0 
412・ DO WHILE where <> 0 
413: IF X(where).}inf >= Item$ THEN 
414: dir = eft 
415・ ELSE 
416: dir = right 
417・ END JF 
418: 1Ievel] = leve] + 1 
419: path(1eve] ) = where 
420: direction(1level) = dir 
421 : 
422: IF X(where).1nf = 1temS THEN 
423: EXIT DO 
424 : ERD F 
25・ TF direction(1eve1 ) = ]eft THEN 
426・ Where = X(where).1eft 
427・ ELSE 
428: Where = X(where) .right 
429: END jF 
430: LOOP 
431 : 
432・ Search = where 
433: 
434: END FUNCTIOR 
435: 
? 参考 文献 


(1 ) ストー ン 他 (寺田 他 訳 ) 「 コ ンピュータ と デー タ 構 造 」 CQ 出 版 社 
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ファ ジイ ィ に よる 自動 車 の 
O スピ ー ド コン トロ ー ル 


ファ ジィ と は 日 本 語 で “あいまい” と か “ぼけ” な どの 意味 を 持つ 言葉 で す . 
近年 。 事象 の あい まい さ を 定 量 的 に 表現 し 処理 する た め の , 新しい 数 学 的 概念 と 
し て 規定 され 注目 され て いま す .1965 年 に は じ め て L.A.Zadeh に よっ て 提唱 され ま 
し だ 。 「 

最近 に な っ て , その 応用 が いろ いろ な 分 野 で 実現 され , 新聞 や 雑誌 に 掲載 され 
る よう に な り ま し た . ここ で は , 自動 車 の スピ ー ド コン トロ ー ル を ファ ジィ 推論 
に より 実行 する モデ ル を プロ グラ ム し て み ま す .。 それ に より 。 ファ ジィ が 実感 的 
に 理解 で きる と 思い ます . また ,。 プロ グラ ム 目 体 も それ ほど 人 復 雑 で は な い の で 。 
応用 も 容易 で す . 








P.B.] ファ ジィ 集合 と メン バー シッ プ 関 数 


ンク 


プン 


自動 車 を 運転 する 場合 の スピ ー ド コン トロ ー ル を ,。 ファ ジィ の 考え を 用 いて モ 
デル 化し て み ま し ょ う . 現実 の 車 の 運転 に お いて は , 多く の 要素 が あり ます が , 
ここ で は , 現在 の 車 の スピ ー ド と 前 の 車 と の 車間 距離 の み を 判断 材料 と し て , ア 
クセ ル を 踏み 込む か 。 ブ レー キ を 踏む か を 加減 する こと に し ます . 

人 が 。 それ ら を 判断 する 場合 , 次 の よう な ルー ル を 暗 交 に 適用 し て いる と 考え 
ら 汚 ます 。 すなわち 。 


@ ス ピー ド が 速く て , 車間 が 狭い な ら ば , ブレ ー キ を 踏む 
の スピ ビード が 遅く て, 車間 が 広い な ら ば . アク セル を 踏み 込む 
@ び スピ ビ ピード が まあ まあ で , 車間 も そこ そこ を 保っ て いる な ら ば , アク セル は そ 
の まま 保持 する 
細か く 分 けれ ば 。 も っ と 多く の ルー ル が 考え られ ます が 。 と りあ え ず 。 ル ー ル 
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と は こん な も の を 言う の だ と 思っ て くだ さい これ を 数 学 的 に 表現 する の が , 最 
初 の 課題 で す . 

スピ ー ド が “遅い "。 “まあ まあ" “速い ”" な ど を ,。 どの よう に し て 数 学 的 に 表 
すか を 考え て み ま し ょ う . 例 と し て , は じ め に “まあ まあ " を 取り 上 げ ま す . 

ハイ ウェ イ と 一 般 道 路 で は 事情 が 異な り ま す が , それ ほど 混ん で いな い 一 般 道 
路 で は , “まあ まあ ” と いう 感じ は 50Km/h と 言っ た と ころ で は な いで し ょ うか 。 
た だ し , この 50Km/h と いう 数 字 は 確定 し た も の で は な く て , 周り の 状況 や その と 
き の 気 分 に よっ て , “まあ まあ "は 40Km/h に な っ た り 60Km/h に な っ た り し ます . 
と は 言っ て も , 40Km/h よ り は 50Km/h の 方 が より “まあ まあ "に 近い と 言っ て よ 
いで し ょ う . そこ で , この よう す を 横 軸 に スピ ー ド , 縦 軸 に “まあ まあ " の 程度 
か と て 。 グ ラン で 表す らち 回 6.64 1 の よう 名 本 ます 、 

ここ で , この 図 の 数 学 的 意味 に つい て 考え て み ま す . 

図 で は , 横 軸 に は スピ ー ド が と られ て お り , 連続 量 と な っ て いま す . 説明 の た 
め に スピ ー ド は ,。10Km/h, 20Km/h, …, 80Km/h の 離散 量 の み を と る も の と し 
押 、 

する と , “まあ まあ "の 程度 は , 50Km/h の と き 値 1 を と り , 40Km/h と 60Km/ 
h の と き に は 2/ 3,。 30Km/h と 70Km/h の と き に は 1/ 3 の 値 を と る こと が わか り 
ます 。 別 の 言い 方 を する と , “まあ まあ ”" の スピ ー ド に は 。 50Km/h が 程度 1 で , 
40Km/h と 60Km/h と が 程度 2 / 3 で , 30Km/h と 70Km/h と が 程度 1 / 3 で 属し て 
いる と 言え ます 。 これ は ,。 普通 の 集合 が 。 ある 要素 が 属し て いる か 否 か 。 す な わ 
@ 2.0.1 





Z0 30 40 oU 60 70 6U Km/h 
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ち 1 か 0 か の どちら か で ある の に 対し て , 属し て いる 程度 が 1 / 3 な ど と , 1 と 0 
以外 の 値 を と る 点 が 異な り ま す . し か し , 集合 と 考え る と , 普通 の 集合 の 拡張 に 
な っ て いる と 言え る の で , ファ ジィ 集合 と 呼ぶ こと に し ます .。 言 い 換 える と , ファ 
ジィ 集合 と は , “要素 と ,。 それ が 集合 に 属す る 程度 を 同時 に 考え に いれ た 集合 "で 
ある と 言え ます . 

ファ ジィ 集合 の 要素 が その 集合 に 属す る 程度 を 表す 関数 を ,。 メン バー シッ プ 関 
数 と 呼び ます . 図 2.6.1 の 例 で は , 連続 量 で 表 さ れ て いま すし た が っ て , 45Km/ 
h の “らしさ "は 。 5/6 で ある と 読み と られ ます . メン バー シッ プ 関 数 の 値 の こ 
と を ,。 グレ ー ド と 呼び ます 。 

メン バー シッ プ 関 数 の 具体 的 な 値 は 。 な に も ここ に あげ た 三角 形 に 限っ た わけ 
で は な く ,。 どん な 値 を と る こと も で きま す . モデ ル を 作成 する 人 や 場面 に よっ て , 
任意 の 形 の 関数 が 定義 され ます . その 自由 さ が フ ァ ジ ィ 集 合 の 特徴 で あります. 
ここ で は 。 デ ログ ラム し や すい よう に 三角 形 と し まし か た 。 

スピ ー ド が “まあ まあ "の 集合 の メン バー シッ プ 関 数 一 らち し さ 一 は , 図 2.6.1 で 
表 さ れ ま し た ., 同様 に し て ,。 スピ ー ド が “遅い "。 “は や い ”" の メン バー シッ プ 関 
数 も 表す こと が で きま す .。 それ ら を まとめ て , 図 2.6.2 に 示し ます . 

車間 の “狭い "。 “そこ そこ とこ "。 "広い" も ファ ジィ 集合 と し て , メン バー シッ プ 
関数 で 表す こと が で きま す . それ を 図 2.6.3 に 示し ます . 図 か ら , 車間 距離 20m は , 
“狭い "の ファ ジィ 集合 に グレ ー ド 0.5 で ,。 “そこ そこ "の ファ ジィ 集合 に も グレ ー 
ド 0.5 で 属し て いる こと が わか り ま す . し た が っ て , 車間 距離 20m は “狭い "と も 
“そこ そこ "な 距離 で ある と も , 同じ 程度 に 言え を る こと に な り ま す . 

現在 の 車 の スピ ー ド と 車間 距離 を 与 を て 。 ス ピー ド の コン トロ ー ル を する の も 
@ 2.6.2 





Z0 oU OU Km/h 
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@ 2Z.6.3 





@ 2Z.6.4 


強 い 減速 減速 休 持 加速 急 加速 





ファ ジィ 集合 で 表 さ れ ま す . ここ で は , それ ら を “強い 減速 "。 “減速 "”。 “保持 ”, 
“加速 "。“ 急 加速 "と 名 づけ ます . 図 2.6.4 に メン バー シッ プ 関 数 を 示し ます . 減 
速 の 最大 値 を 一 10Km/s*, 加速 の 最大 値 を 10Km/s? と し ます . 

以上 で , スピ ー ド , 車間 。 スピ ー ド コン トロ ー ル を 表現 する ファ ジィ 集合 一 一 言 
い 換 える な ら ば 。 あい まい な 日 常 語 一 一 を 定義 し て きま し た . 


イ 推 請 


クジ 
1 
3 


前 婦 で 述べ た , 
スピ ー ド が 速く て , 車間 が 狭い な ら ば , ブレ ー キ を 踏む 


は ルー ル と 呼ば れ ま す . 前 提 条 件 の スピ ー ド が 速い と か 車間 が 狭い 。 帰 結 の ブレ ー 
キ を 踏む 。 な ど は いずれ も ファ ジィ 集合 で 表す こと が で きま す . 一 般 に ファ ジィ 
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集合 を 大 文字 の アル ファ ベッ ト A, B, C, …, その 要素 を 小文字 x。 y。z な ど で 表 
し ます . 前 節 の 図 2.6.2 か ら 図 2.6.4 の ファ ジィ 集合 を 。 スピ ー ド が “遅い "。“ ま 
あま あ ”。 “速い "を A」, A。。 A。, 車間 の “狭い "。 “そこ そこ "。 “広い "を B」。 B,, 
B。, スピ ー ド コン トロ ー ル の 程度 “強い 減速 "。 “減速 “保持, 加速", “ 急 加 
衣 まあ C。 も も 。 CC 6 も し ます 


ルー ル の 一 般 的 な 表現 は 次 の と お り で す . 
TE 前 提 部 THERN 帰結 部 


上 の 記号 を 用 いて 。 すべ て の ルー ル を 表す と 次 の よう に な り ま す . 


ITF'x jiS Ai and y jis Bi THEN gz is Oi ルー ル 1 
ITF'x is A」 and y is B。 THENgzis QA ルー ル 2 
TER'x ji8 Ai and y ij8 B。 THBIN gis Cs ルー ル 3 
TE'x i8 A。 and yis Bi THENgzis CC: ルー ル 4 
TE xis Az andyis B。 THEN gis Oi ルー ル 5 
TEF'x ji8 A。 and y ij8 Ba THEN zis CA ルー ル 65 
TR'x jiS A。 and y is Bi THEN gz is Oi ルー ル / 
THR'x ij8 A。 and yis B。 THEN zis C: ルー ル 6 
TH'x 1i8 Aa and yi8s Ba THBEBN gi8 Oi ルー ル 9 


- の ウ KN 
人 9 


ます 、 

これ ら の ルー ル は , 人 が 任意 に 定め た も の で す が , 一 応 常識 的 な 判断 か ら は 大 
きく は ずれ て いな い は ず で す .。 この ルー ル 以 外 の ルー ル が 認め られ な いと か 。 存 
在 し な いと か 言う も の で は あり ませ ん . 

推論 は 以下 の よう に 考え ます . 


x は スピ ー ド , y は 車間 。 z は スピ ー ド コン トロ ー ル の 具体 的 な 値 を と り 


前 提 部 x iS A, and y is 己 , 1]j=1, 2, 3) 


は x が 集合 Ai に , y が 集合 Bi に 属す る こと を 意味 し ます . x と y の 値 に より その “ ら 
し さ " すなわち グレ ー ド の 値 は 異な り ま す . x と y は も と の 集合 , すなわち 台 集 合 
が 異な る の で その まま and を と る こと は で きま せん が ,。 x と y の 積 集合 を 考え て (x, 
y) is AI ]B、」 と し ます ,。 そし て ,。 そ の グレ ー ド と し て 。x と y の グレ ー ド の 小さき い 
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方 の 値 を と る こと に し ます . これ は , 普通 の 集合 演算 に お いて , and は その 要素 が 
同時 に 前 後 の 集合 の 要素 で ある , と いう 演算 に 相当 し ます . 

論 は 前 提 部 に 具体 的 な 条件 が 与え られ た と き の 帰 結 部 と し て 得 ら れ ま す 。 マ 
ンダ ー ニ に よれ ば 推論 A「 ]B っ C は A, B, C の 積 集合 で 与え を られ ます . すなわち 。, 
お の お の の グレ ー ド の 最小 値 を と る こと に な り ま す . た と えば , ルー ル 5 を 適用 
する 場合 は 図 2.6.5 に 見 られ る よう に な り ま す . 

スピ ー ド が 30Km/h で , 車間 が 40m で あっ た と する と , ファ ジィ 集合 "まあ まあ " 
と “そこ そこ "の グレ ー ド は 1/3 と 1/2 に な り ま す . そこ で 。 AB の グレ ー ド は 1/ 
3 で す .。 ファ ジィ 集合 “保持 " の グレ ー ド は 1/3 以 上 の 値 が と れ な い の で , 推論 さ 
れ た 結果 の メン バー シッ プ 関 数 は , 図 2.6.5 の 右 の グラ フ の よう に 三角 形 の 頭 が 切 
れ た 台形 と な り ま す . 推論 さん れる の が また ファ ジィ 集合 で ある 点 に 注意 し て くだ 
さい . また ,。 前 提 部 の A と B の 要素 の お の お の に つい て 図 2.6.5 が 存在 し ます . す 
な わ ち ,。 一 般 に は , 3 次元 空間 で の 話 で す . 

PP ファ ジィ 集合 の 形 で は 困る の で , な ん ら か の 数 値 
化 を し ます , * は , ファ ジィ 集合 の 重心 を と る こと に し ます . 図 2.6.5 の 結果 
LE 前 基 お あや cE 本 拓 

ルー ル が 複数 存在 する 場合 に は , 推論 さん た ファ ジィ 集合 の 和 を と り ま す . フ ァ 
ジィ 集合 で 和 を と る と は , グレ ー ド の 最大 値 を メン バー シッ プ 関 数 の 値 と する こ 
と を 意味 し ます . 

以上 の よう な 考え に 基づい て ,。 プロ グラ ム を 作成 し て み ま す . 

e 図 2.6.5 


スピ ー ド まあ まあ 車間 そこ そこ スピ ー ド コン トロ ー ル 
保持 








20 30 50 80 km/h 10 30 40 50m ー 昌 0 5m/s2 
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ググ 


8.83 ブロ グラ ミン グ 


ツィ ンジ 


前 節 ま で に 説明 し た スピ ー ド コン トロ ー ル の モデ ル を プロ グラ ム し て み ま す . 
プロ グラ プラム の ボイン シト 位 。 


@ メンバー シッ プ 関 数 の 表現 
@ ルー ル の 表現 

@ 前 提 部 の 処理 

@ 重心 の 計算 


の 4 点 で す . これ ら を 読み や すく 記述 で きる か 和 否 か が , すっ きり と し た プロ グラ 
ム が 仕上 が る か どう か の 分 か れ 道 で す . 





2.6.1 で 用 いた メン バー シッ プ 関 数 は ,。 3 種類 の 形 を し て いま す . それ ら を 図 2.6.6 
(a), (b), (c) で 表し ます . 


図 (6 も) は , 3 点 A, B, C を 与え れ ば 形 が 定まり ます . 図 (a) は 2 点 B と C, 図 (c) は 2 
点 A と B で 形 が 定まり ます . これ ら を ひと つの プロ シー ジャ に まとめ る た め に は , 
形 を 表す パラ メー タ が 必要 で す 。 ここ で は , それ を 引数 の と る 値 に よっ て 区 別 す 
る こと に し ます . 図 中 の 点 A, B,C を 同じ 名 前 を 持つ 引数 と し て , 


A=B< く CO な ら ば 図 (8) 
A く B く CO な ら ば 図 (b) 
A<B ロ =O な ら ば 図 (c) 


と し ます . メン バー シッ プ 関 数 の グレ ー ド の 最大 値 は 1 な の で 。 プロシージャ を 


FUNCTTON grade(A, B, C, x) 


と し て 。 リ スト 2.6.1 の よう に プロ グラ ム さ れ ま す . 最後 の 引数 x は 評価 すべ き 集 
合 の 要素 の 値 で す . 
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@ 図 2.6.6 





(a) (c) 





ルー ル は 。 前 提 部 が 2 個 の ファ ジィ 集合 , 帰結 部 が 1 個 の ファ ジィ 集合 を 含み 
ます . お の お の の 集合 を , 2.6.1 で の 説明 に 準じ て A」, AA。 : B」, B。, B。 : C,, 
C。。 C。。C4,。 C。 と する と ,。 ルー ル は 集合 A, B, C の 添字 で 区 別 さ れ ま す . 
そこ で デー タ 型 RuleStruct を 


TYPE RuleStruot 
Cond1 AS TNTEGER 
Cond2 AS INTEGER 
result AS INTEGER 
BBND TYPE 


と し て , 宣言 し ます . RuleStruct 型 は , 前 提 部 と 帰結 部 の 集合 の 添字 を INTEGER 
型 の 要素 と し て 持ち ます . 
変数 と し て は , これ を ルー ル の 数 だ け の 大 き さ を 持つ 配列 と し ます . すなわち 。 


DTM Rule(RuleNumDber) 


と し て 宣言 し ます . 






前 提 部 は 現在 の スピ ー ド と 車間 を 与え を て 。 グレ ー ド 値 の 小さ い 方 を と り ま す . 
これ を 。 ル ー ル の 数 だ け 実 行 し ます . プロ シー ジャ EvaluateConditions と し て 次 
の よう 区 宣言 し ます 。 


アア ん 





へ 


@ リ スト 2.6.1 ファ ジイ 制御 
1・ DECLARE FUNCTION GetCenter! (LowerC, UpperC, C() , Rule() AS ANY, AandB!() 。 RuleNo! 、 
SpritNo! ) 
2・ DECLARE SUB FvaluateConditions (VelocltyNow!, DistNow!, A!(), B!(), Rule() AS ANY, 
AandB! ( ) , RuleNo! ) 
3: DPECLARE FUNCTION grade! (AI! B!,。 C!。X!) 
4: DECLARE FUNCTION Min! (X!, Y!) 
お : 
6: CONST RuieNo = 9 "HU 重 DGT Of TUu1Ie5 
『 
8: TYPE RulieStruct '#f xX is Cond1 and y is Cond2 then 2 is Resu1t 
9: Cond1 AS INTEGER 
10・ Cond2 AS INTEGER 
11 : reSult AS INTEGER 
12: END TYPE 
3 
14: DI Rule(RuleNo) AS RuleStruct 
15: DIHM A(3。 2), B(3, 2), C(5, 2) , AandB(9) 
16・ 
17: DATA 20.20.50, 20.50.80, 50.80.80: set A, velocity of car 
18: DATA 10.10.30, 10.30.50,. 30.50.50: "set B, distance between Cars 
19: DATA -10,.-10,-5, -10.-5.0。-5.0.5。 0.5.10, 5.10.10: "set C, controle of car 
20: 
21: DATA 1.1.3 ・ "Rule 1 
22: DATA 1.2.4 : Ruie 2 
23: DATA 1.3.5 ・ Rule 3 
24: DATA 2.1.2 ・ Rule 4 
25: DATA 2.2,.3 ・ “Rule 5 
26: DATA 2.3,4 ・ Rule 6 
27・ DATA 3.1,.1 ・ "Rule 7 
28: DATA 3.2.2 ・ Rule 8 
29: DATA 3.3,.3 ・ Rule 9 
30・ 
31: FOR 1 = 1 Y0 3 
いも FOR ] = 0 TO 2: READ A(1, ]): NEXT] 
33: MEXT 
34・ 
35: FOR 1 = 1 0 3 
36 : FOR ] = 0 TO 2: READ B(i, ]): NEXT ] 
37: MEXT }】 
38・ 
39・ FOR i = 1 TO 5 
40: FOR ] = 0 TO0 2: READ Ci ]): NEXT 
41: NEXT 
42・ 
43: FOR 1 = 1 0 RuieNo 
44: READ Rule(i).Cond1: READ Rule(i).Cond2・ READ Rule(i) .result 
45: NEXT 1 
46: 
47: PRINT 
48: FOR DistNow = 10 YO 50 STEP 20 
49: PRINT 
50・ PRINT USING "Distant = ## を OO: DistNow 
51 : PRINT “V(Km/h ) Contro1(m/S 2)" 
る 2 : FOR VelocityNow = 20 TO 80 STEP 10 
53 : CALL EvaluateConditions(Veiocityhow, DistNow , A() , B() , Ruje() . AandB( ) , RulehNo ) 
54・ Tesult = GetCentert-10. 10, C()。 Rule(), AandE(), RuleNo、20) 
55 PRTNT USINC "## お お ## を 寿人 が が すす だ (VelocityNow: result 
56 NEXT VelocityNow 
57: NEXT DistNow 
58: END 
S9: 
60・ 
61 ・: | 
62: mm Ni (VelocityNow, DistNow, A() , B(), Rule() AS RuleStruct, AandB( ) . 
KuleNO 
63 FOR j = 1 TO RuleNo 
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64・: 1 = Rule(1).Cond1: k = Rule(1).Cond2 
65・ gl = grade(A(j, 0), A(J, 1), A(J, 2)., VelocityNow ) 
66 : g2 = grade(B(k, 0), B(k, 1) 、 B(k, 2), DistNow) 
67: AandB(1) = Min(gl1, g2) 
68・ NEXT 1 
69: END SUB 
70: 
71・ FUNCTION GetCenter (LowerC, UpperC, C(), Rule() AS RuleStruct , AandB(), RuleNo, SpritNup ) 
が を 
が LastResult = 0O: Area = 0 
74・ FOR x = LowerC TO UpperC + .001 STEP (UpperC - LowerC) / SpritNum 
75・ MaXY = 0 
76: FOR 1 = 1 TO RuleNo 
りか ] = Rule(i).result 
78: y = Min(grade(C(j,. 0),。C(j, 1). C(j, 2), X). AandB(i ) ) 
79: TF MaXy < Y THEN MaAXY = Y 
80・ NEXT 1 
81 : LastResult = LastResult + X * MaXY: Are8 = ATGe8 +* MAXY 
82 : REXT X 
83: JF Area <> 0 YHEN 
84: GetCeter = LastResult / Area 
85: ELSE 
86 : GetCeter = 0 
87: END F 
88: 
89:. お NRND FUNCTION 
90: 
91: FUNCTIOR grade (A, B, C, 只 ) 
92 : 
93・ TF A = B THEN 
94 : JF x <= B THEN 
95 : grade = 1 
96 : ELSEFIF x >= C THEN 
97 ・: grade = 0 
98 : ELSE 
99: grade = (C - X) / (C - B) 
100・ END JF 
101 : EXIT FUNCTION 
102: END j』F 
103: 
104: IF B = C THEN 
105・ fx >= PB HER 
106 : grT8de = 1 
107: ELSEIF x <= A THEN 
108: grade = 0 
109: ELSE 
110: grade = (xX - A) / (5 - Aj 
1】 : END F 
人 を EXIT FUNCTION 
まる る きく END TF 
114 : 
まま 5 : FT X <= A OR x >= C THEN 
116・ grade = 0 
まま /・ ELSEIF ヵ < B THENR 
118: grade = (X - A) / (B - A) 
119: FELSE 
120: gTade = (C - X) / (C - Bj 
121 : END jF 
の みさ 
123: END FUNCTION 
124 : 
125: FUNCTION Min (x. Y) 
126 : IF X > y THEN 
まま 1 in = Y 
128 : ELSE 
< 前 in = X 
130: END 』F 
131: END FUNCTION 
9 の 2 : 
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SUB EvaluateOConditions(VelocitYNow, DistNow, A( ), B( ), 
Rule( ) AS RuleStruct, AandB( ), RuleNO) 


引数 は 次 の よう に 働き ます . 


VelocityNow : 現在 の スピ ー ド を 与え る 
DistNow  : 現在 の 車間 距離 を 与え る 


A( ) ・ 集合 A の メン バー シッ プ 関 数 の パラ メー タ 
B( ) ・ 集合 B の メン バー シッ プ 関 数 の パラ メー タ 
Rule( ) ・ ル ー ル 

AandB( )  : AB の 値 (=Min(A, )) 

RuleNo ・ ル ー ル の 数 (=9) 


具体 的 な プロ グラ ム は リス ト 2.6.| に 示さ れ ま す . 





スピ ー ド と 車間 が 与え られ た 場合 の 推論 は , 3 個 の 集合 の 積 で 与え られ ま す . 
今 の 場合 , ス ピー ド と 車間 は 1 個 の 値 で 入力 され る の で , その グレ ー ド は 2.6.3.3 で 述 
べら れ た プロ シー ジャ PEvaluateConditions に より 配列 AandB( ) に 得 ら れ て いま す . 
し た が っ て ,。 ルー ル ご と に スピ ー ド コン トロ ー ル の ファ ジィ 集合 と し て 得 ら れ ま 
す ( 図 2.6.5 参 照 ). ルー ル が 複数 個 存在 する 場合 に は , ルー ル ご と の 推論 結果 の 和 
(最大 値 ) を と る こと に な り ま す . そ の メン バー シッ プ 関 数 を (2) で 表す と , 重心 は 。 


/ z(g)dg / / ん (g)dz 


で 与え られ ます (積分 記号 は 通常 の 積分 スピ ー ド コン トロ ー ル 値 の 取り 得る 範 
囲 は 前 節 で 述べ た よう に 一 10m/s? か ら 10m/s? と し ます . 
プロ シー ジャ を GetCenter と し て 次 の よう に 宣言 し ます . 


FUNCTTON GetCenter(LowerOC, UpperC, C( ), Rule( ) AS 
RuleStruct, AandB( ), RuleNo, SDritNum) 


引数 は 次 の よう に 働き ます . 
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Liower び ご び : ス ピー ドコ ント ロー ル 値 の 上 限 

Upper び : ス ピー ドコ ント ロー ル 値 の 下限 

集合 C の メン バー シッ プ 関 数 の パラ メー 
Rule : ルー ル 

AandB ・ AB, EvaluatedConditions で 得 ら れ た 
RuleNo  : ルー ル の 数 


SpritNum : 数 値 的 に 積分 する 際 の 分 因 


関数 値 は 重心 の 値 そ の も の で す . 
具体 的 な プロ グラ ム は リス ト 2.6.| に 示さ れ ま す . 積分 は 単純 に 関数 の 和 を 求め 
いま す . 重心 を 求め る た め 分 母 と 分 子 で Az は 相殺 され る の で Az=1 と し て あり ま 





プロ グラ ム は メイ ン モ ジュ ー ル レベ ルコ ー ド と 。 31 
す . 配列 A( ) と B( ) は , スピ ー ド と 車間 の ファ ジィ 集合 に 対す る , メン バー シッ 
関数 の パラ メー タ を 格納 し ます . 

DATA 文 に て 。 メン パー シッ プ 関 数 の パラ メー タ と ルー ル を 与え て お きま す . 
結果 は , スピ ー ド と 車間 を ルー プ 変 数 に と っ て 表 の 形 に し て 出力 し ます . 





ゅ 参考 文献 

本 章 の 執筆 に 際 し て 参考 に し た 文献 を 以下 に あげ て お きま す . 

1) 寺野 , 浅 居 , 菅野 共編 「 フ ァ ジ ィ シ ステ ム 入 門 ] オー ム 社 (1987) 
(2) 三矢 , 田中 「C 言 語 に よる 実用 ファ ジィ ブッ ク 」 ラッ セル 人 社 (1989) 
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ツン 


ンク 





ブロ グラ ム 








及 


ファ イル 送 
/ 


プロ グラ ム や デー タタ な どの ファ イル を , ほか の パー ソナ ルコ ンピュータ に RS-232 
C 回 線 を 通し て 送受 信 す る 方 法 を 考え て み ま す . QB の ファ イル 処理 機能 は 従来 の 
BASIC の それ より も 強化 され て いる の で 。 プ ログ ラミ ング は その 分 だ け 容 易 で す . 


p./.| 用 意 す べき 機材 


パー ソナ ルコ ンピュータ を 2 人 台 並 べ て ,3.5 イ ンチ の ファ イル を 5 イン チ の ファ 
イル に 変換 する な どの 場合 に は , 俗 に “クロス (= 交叉 し た )” と 呼ば れる RS-232 
C ケ ー ブ ル が 必要 で す . PC-9801 同 士 の 場合 に は , 両方 が オス の コネ クタ で な けれ 
ば な り ま せん . 

モデ ム を 使用 し て , 電話 で 博 く に 居る 人 々 へ ファ イル を 転送 する 場合 に は 。, モ 
デム と モデ ム と パソ コン の 間 を 接続 する ケー ブル が 必要 で す ( モ デム を 購入 すれ ば 
う づい て そく 希 

概略 図 を 図 2.7.1 に 示し ます . 

モデ ム は 通常 , 電話 器 と 回 線 の モジ ュ ラ ー ジ ャ ッ ク の 間 に 入 れ て 使う よう に な っ 
て いま す ., CCT-98 な どの パソ コン 通信 用 の ソフ ト が 動い て いる 場合 に は , すべ て 
自動 で 接続 され ます が , ここ で は 人 が ダイ アル し 相手 を 確認 し た うえ で (2.7.4 参 照 ), 
スイ ッ チ を デー タ に 切り 換え て 使用 し ます . 図 2.7.1 の よう な 構成 に な り ま す . 

使用 する モデ ム の ボー レー ト は 一 致し て いる 必要 が あり ます . ここ で は 1200 ボ ー 
の も の を 用 いま し た . 
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p./ ファ イル 送受 信 ブ ログ ラム 


@ 軟 2/./.| 


PC-9801 PC-9801 
2 ピンク ロメ えな か ー ア ル 
両方 が オス 





PC-9801 同士 を 直接 持続 する 


ーー ーー 





電 庄 一 電話 益 


モデ ム を 介し て 遠く に いる 人 間 と 通信 を する 


き P.7. 短い テキ スト ファ イル の 送受 信 ブ ログ ラム 


ング 


は じ め に , サ イズ が 10K バ イト 程度 以下 の 短い テキ スト 型 フ ァイル の 送受 信 を 試 
み ま す . テキ スト ファ イル に 限っ た の は , 送信 終了 に EOT コ ー ド (= 4 ) を 使用 す 
る た めで す 。 バ イナ リフ ァイル で す と ,。 すべ て の コー ド が ファ イル 中 に 含ま れる 
の で 次節 の よう に , 送信 バイ ト 数 を あら か じ め 送 信 し て お く 必 要 が 生じ ます . 
送信 自体 は 別に 特別 な が こと で は な く て ,PRINT 文 で 画面 や プリ ンタ に コー ド を 
送っ て 文字 を 印字 する の と 同じ 考え を です. ここ で は , ファ イル を シー ケン シャ ル 
ファ イル と し て オー プン し て , 1 文字 ずつ 読み 出し て は 。 相手 に 送信 する 方 法 を 
と り ま す . ファ イル に きた ら EOT の コー ド を 送信 し て 終了 で す . 受信 側 は 逆 に , 
1 文字 受け 取る ご と に ファ イル に シー ケン シャ ル に 書き 込ん で ゆき ます .EOT コ ー 
ド が きた ら 終 了 で す .。 な お , 念 の た め に , 受信 側 は , 受信 し た バイ ト 数 を 送信 側 
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に 返し ます ., 送信 し た バイ ト 数 と 返事 と し て 受け 取っ た 受信 バイ ト 数 が 異な っ た 
場合 に は 。 な ん ら か の エラ ー が 生じ た こと を 意味 し ます . 
全体 の フロ ー を 送信 側 。 受信 側 に 分 け て 図 2.7.2(4), (b) に 示し ます . 受信 側 の 送 
信 開 始 信号 待ち は 。 か な ら ず ルー プ に し て , 回 線 接続 時 の ゴミ を キャ ン セ ル す る 
よう に し ます 。 リ スト 2.7.1I(a), (b) に プロ グラ ムリ スト を 示し ます . 
プロ グラ ム に つい て 要点 を 2。 3 説明 し ます . 


OPEN CUM | 
RS-232C 回 線 を オー プン する ステ ー ト メン ト は , OPEN COM を 用 いま す . N。。 
-BASIC と 形式 は 似 て いま す が , パラ メー タ に ボー レー ト が 指定 で きる こと や 。 オ 
プシ ョ ン の 置き 方 が 異な っ て いま す 。. 
リス ト 2.7.1(a)。 (5) で は 次 の よう に オー プン し て いま す 、 














@ 2./.Z 
は じ め は じ め 
送信 開始 信号 送信 = 
PRINT 井 2.CHR$(ENK): 
- EOT を 受信 する まで 1 
ファ イル の 内 容 を 1 文字 す つ 送信 文字 受信 ご と に ファ イ 
2$ 三 INPUT$(] ,#]) ル に 書き 出す 
PRINT#2.a$: 
送信 終了 信号 送信 生得 人 人 
PRINT 2.CHR$(EOT): 
詩 w 一 受信 バイ ト 数 の 送信 
相手 方 の 送信 開始 信号 待ち 





a$ 三 INPUT$ (1, 1) 


送信 バイ ト 数 の 受信 





送信 終了 信号 送信 


受信 側 の ゼネ ラル フロ ー 
(⑪) 
送信 側 の ゼネ ラル フロ ー 

(a) 
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P./ ファ イル 送受 信 プ ログ ラム 
OPEN “COM1 : 1200, N, 8, 1, BIN" FOR RANDOM AS 弱 


最初 の パラ メー タ 1200 は , 1200 ボ ー(1 秒間 に 1200 ビ ッ ト の スピ ー ド ) で 送信 す 
る こと を 意味 し ます . この スピ ー ド は 受信 側 と 一 致 き せる 必要 が あり ます 。 モデ 
ム を 使用 する 場合 に は , モ デム と も 一 致 さ きせ な く て は な り ま せん . 次 の N は パリ ティ 
ビッ ト の な いこ と 。 次 の 8 は 。1 語 8 ビッ ト を 表し ます . 次 の 1 は ストップ ビ ッ 
ト が 1 を 表し ます . 最後 の BIN は , バイ ナリ モー ド で の オー プン を 意味 し ます 。 
ここ で は 。 読み 出し た デー タ を その まま 送信 し た い の で 。 BIN と し ます 。 

FOR の あと は , RANDOM と し ます . この よう に する と , 入出 力 い ず れ に も 回 
線 の アク セス が 可能 と な り ま す . INPUT あ る い は OUTPUT に 指定 する と , 入力 
ある い は 出力 と し て し か 動作 し な い の で 注意 し て くだ さい . 

@ リ スト 2.7.1(a) 送信 プロ グラ ム 


・ CONSTEOT =4 End of Transmission 伝送 終 
= [ 問合せ 


1 )/ チ 
6 CONST ENK “ 5 'Enquiry せ 文 字 


COWANDS 





| fH1enames = 


OPEN | Iamale FOR TNPUT AS 4 村 
* "com1: 1200, 1 。 8, 1 FOR WT 村 する 





kd お 4 


): count = 0 ーー 。 
10: PRINT 82,CHRS(ENI 人 開 始 信 

11: DO WHILE NOT EOF(1) _ 

12: count MOD 128 = 0 THEN PRINT 0 『 
9 給 っ TNPUTS(1. 灯 ) 、 _ 
14 PHNTI 2 0 

15, count ・ count |。 ュ 
、 ) 0 だ | “ 

_17: CLOSE 打 | 

18: PRINT ] 

19: PRINT "送信 バイ ト 数 =": count 

20: PRINT #2, CHRS(EOT): _ 庄 信 am 本 人 則 


22: "相手 方 の 受信 バイ ト 数 の 確認 


24: a$ = CHRS(0): D0: 8$ = TNPUTS(1, 2): 
25: 45 * 

_26: _。 、 
27: z8・ TNPUTS1。 -#2) ーー 
28:  JF Z$ = CHR$(EOT) いい EXTT DO "終了 信号 待ち 
29: 8a5 = 89 + 25 、 0 





TooP OWTTL aS = CHRS(ENK) 


LOOP 
31: PRINT " 応 ・ バ すす ト er VAL(a9) 
32: CLOSE 2 ーー | 
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@ リ スト 2.7.1 (b) 受信 ブロ グラ ム 


1: CONSTEOT = 4  'End of Transmission 伝送 終了 文字 
2: CONST FNK = 5  'Enquiry 問合せ 文字 

3 : 

4: fitenam$ = COMMAND$ 

が? 

6: OPEN filename$ FOR OUTPUT AS # " 

7: OPEN "com1:1200,n,8,.1.BIN" FOR RANDOM AS#2 

8: 

9: DO 「 | 

10: a$ = INPUT$(1, #2) 送信 開始 信号 待ち 


11: LOOP UNTHL a$ = CHR$(ENK) 

12: counhtt = 0 

13: a$ = INPUT$(1, #2) 

14: DO 中 ILE a$ <> CHR$(EOT ) 

1 も ・ TF count MOD 128 = 0 TEN PRINT RB 
16・ PRINT #1, a$: 
まま a$ = INPUT$(1, #2) 

18: COunt = couht + 1 

19: LOOP 

20: CLOSE # 

21: PREINI 

22 : PRINT " 愛 信 バ イ ト 数 = count 


24: FOR 1 。 し TO 10000: 





'EXT 1 el 
26 : 相手 方 へ 受信 バイ ト 数 を 送信 する 
軸 。 PRINT #2, CHRS(ENK) 

29: PRINT #2, count 

30: PRINT #2, CHRS(BOT) 


| 電 





⑤⑩ い COMMAND お 

QB で 作成 され た 実行 型 フ ァイル (. EXE の つい た ファ イル ) は , コマ ンド 行文 
字 列 を 読み 込む 命令 COMMAND$ に よっ て , ファ イル 名 な ど を プロ グラ ム 起 動 時 
に 与え を る こと が で きま す . プ ログ ラム デバ ッ グ 中 は , ファ イル 名 filename$ に は 定 
数 で 名 前 を 与え を て お きま す が ,。 実行 段階 で は , 


filename や =COMMAND$ 


と する と 。 コマ ンド 行 で 与え られ た ファ イル 名 を 直接 プロ グラ ム に 渡せ ます 。 た 
と えば 。 送信 プロ グラ ム の ファ イル 名 を send1 .bas と する と 。 これ を コン パイ ル し 
て 実行 ファ イル SEND1.EXE を 得 ま す . そこ で , sample. dat フ ァイル を 転送 し た 
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いと する と 。 


SBND1 SAMPTLE. DAT 
の よう 泡 グイ デ す る と と 区 り まず. 


FNK 待 ち ル ー プ 
受信 側 プ ログ ラム (リス ト 2.7.1I(b)) の は じ め に て , 


DO 
a$ も =TINPUT$(1. ) 
LOOP UNTTL, a$ = OHRS$(ENK) 


と ENK コ ー ド が 送信 され る の を 待っ て いま す . これ は モデ ム を 立ち 上 げた り , 相 
手 方 の コン ピュ ー タ 立ち 上 げ の 際 に , ゴミ が 送信 され る こと が ある の で ,。 本 当 に 
ENK コ ー ド が くる まで 待ち ます . も っ と も , ゴミ の 中 に ENK コ ー ド と 同じ 信号 が 
含ま れ て いる と き に は お 手 上 げ で す が . 


⑳ 送 受信 バイ ト 数 

リス ト 2.7.1(a), (b) の プロ グラ ム で は , 送信 し た バイ ト 数 と 受信 し た バイ ト 数 の 
カウ ンタ は 同じ 値 に な り ま す . そこ で , それ を 受信 側が 送信 側 に 戻し し チェ ッ ク 
る と と が で き ※ す . 


⑳ 実 行 万 法 

は じ め に 受信 側 の プロ グラ ム 2.7.1(b) を 実行 きせ , つい で , 送信 側 プ ログ ラム (8) 
を 実行 きせ ます . この タイ ミン グ が 逆 に な る と 動き ませ ん . その 場合 に は , 
キー で ブロ グラ ム を 止め て や りな お し て くだ さい 。 
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SN p.7.3 バイ ナリ ファ イル の 送受 信 プ ログ ラム 


ング 


プロ グラ ム フ ァ イル や パイ ナリ デー タ を 含む ファ イル に は 。 8 ビッ ト の すべ て 
の 値 , すなわち 00H-FFH の 値 が 含ま れる の で ,。 フ ァイル の 終わ り に EOT コ ー ド 
( 三 4 ) を 送信 し て , ファ イル の 終わ り を 知ら せる こと は で きま せん .。 その よう な 
ファ イル を 送受 信 す る た め に は , 送信 する デー タ 数 を な ん ら か の 方 法 で 受信 側 に 
知ら せ て や る こと に し ます . 

考え 方 と し て は 。 共 の よう に し ます 。 すなわち 。 

(1) 送信 する 単位 を レコ ー ド と 呼ぶ . 

(2 ) レコ ー ド は 次 の 構造 を 持つ . 

@ 図 2/./.3 





Bi | | suwlgrx 


先頭 は 。STX(= 2 ) と し 。 その 次 に バイ ナリ で デー タ 数 を 置く 。 そ の 順 は 
上 位 ・ 下 位 と する . その あと に デー タ 数 だ け の バイ ト 数 の デー タ が 続く 。 デー 
タタ の あと に は , デー タ 数 も 含め た 送信 コー ド の 合計 の 下位 8 ビッ ト の 値 を 置 
く 。 

レコ ー ド の 最後 は ETX (= 3 ) と する . 

た だ と えば 。 デ ー タ 数 を 128 と する と 。 レ コー ド 全 体 と し て は 。 128 十 5 =133 
バイ ト の 大 き さ を 持つ . 

(3) 受信 側 は , デ ー タ 数 分 の デー タ を 受信 し た ら , SUM の 値 の チェ ッ ク を 行う . 
正しく な けれ ば , NAK( テ 15H, 否定 応答 ) を 送信 側 に 返す . する と 送信 側 は 
再送 する 。 再送 が 5 回 繰り 返さ れ て も エラ ー が 生ずる な ら ば 中 止 す る . 逆 に 
SUM の 値 が 正しく , か つ ETX も 受信 で きた ら 送 信 側 に ACK(=6, 育 定 応答 ) 
を 返す 。 する と , 次 の レコ ー ド を 送信 し て くる 。 

全体 の フロ ー を 図 2.7.4(a), (b) に , リス ト を リス ト 2.7.2(a), (b) に 示し ます 。 前 

節 の 例 よ り い くら か 複雑 な の で ,。 プロ グラ ムリ スト に つい て 補足 し て お きま す . 
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_  F./ ファ イル 送受 信 ブ ログ ラム 

d 送 信 側 プロ グラ ム に つい て 

フロ ー チ ャ ー ト 図 2.7.4(4) で は , プ ロ シ ー ジ ャ を 使用 し て いな いよ うに 書い て あ 
り ま す が , 1 レコ ー ド 分 の デー タ を , 送信 用 レコ ー ド に 編成 する 部 分 は , SUB プ 
ロ シ ー ジ ャ MakeRecord に まとめ て あり ます . 

サム チェ ッ ク 用 の 値 と し て は , 8 ビッ ト の み を 用 いる の で , 和 を と っ て 人 下位 8 
ビッ ト の み を 利用 し て いま す . 

1 回 に 送信 する デー タ 長 を 定数 BufSize( ニ 128) で 与え を ます. 変数 x を , BufSize 
長 の 固定 長文 字 列 と し ます . 

ファ イル か ら デ ー タ を 指定 し た バイ ト 長 だ け 読 み 出 す に は , オー プン 時 に , 


EOR BINARY 
と し ます . こう する と ,。i を 読み 出す べき ファ イル の 位置 と する と, 
GET #2ix 


で , x に X の サイ ズ だ け の デー タ が 得 ら れ ま す . 残 り の デー タ が x の サイ ズ よ り 短 い 
場合 に は , 実際 に 読み 込ま れ た デー タタ 数 は な ん ら か の 方 法 で 算出 し な く て は な り 
ませ ん . こ の プロ グラ ム で は , は じ め に ファ イル の バイ ト 数 を FileSize に 読み 出し 
て お き , そこ か ら 算 出し て いま す . 

x を 固定 長文 字 列 に し て ある の は , バッ ファ と し て 使用 する た め に は , その サイ 
ズ が 一 定 し て いる こと が 必要 な た めで す . 

ファ イル 位置 を ポイ ント する 変数 i と ファ イル サイ ズ を 格納 し て お く FileSize は 
LONG 型 に し て お く < 必要 が あり ます . さ も な いと , 32K バ イト より 大 き な フ ァイル 
の 処理 が で き な く な り ま す . 


⑩ 受 信 側 の プロ グラ ム に つい て 

フフ ロー チャート 図 2.7.4(b) で 示さ れる よう に , 1 レコ ー ド 受信 部 を プロ シー ジャ 
に まとめ て あり ます . レ コー ド の 先頭 が STX な ら ば , 以 下 の 受 信 を 続け ます .EOT 
で ある と 送信 終了 コー ド の 受信 な の で , EOTElag を true に し て 戻り ます . その ほ 
か の コー ド の 場合 に は ,。 ErrFlag を true に し ます . デー タ を 指定 され た バイ ト 数 だ 
け 受 信 し た あと , サ ムチ ェ ッ ク デ ー タ を 受信 し ます , それ が 一 致し な けれ ば , ErrFlag 
を true と し ます 。 レコ ー ド の 最後 が ETX で な い 場 合 も 同様 で す . 
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も し, ErrFlag が true で ある と, 否定 応答 文字 NAK を 送信 し , も う 一 度 同 一 の 
レコ ー ド の 送信 を 要求 し ます . 再送 が 5 回 連続 し て 実行 きれ て も エラ ー と な る 場 
合 に は , 送信 終了 信号 を 送信 し て 終了 し ます . 

EOTFlag と ErrFlag の 部 分 に 注意 すれ ば 。 わ か り に くい 点 は な いと 思い ます . 

受信 デー タ を 書き 込む せ フ ァイル は , 送信 の 場合 と 同様 に . モー ド を BINARY と 
し て オー プン し ます 。 書き込み は , 


FUT 1 a ほ 


と し て 実行 し ます . s$ は 送信 の 場合 と は 異な り , 固定 長 で な く < 可変 長 の 文字 変数 
で す . これ は ,。 少な く と も 最終 レコ ー ド は 。 レコ ー ド サイ ズ が ほか の も の と 異な 
る こと が 多い か ら で す . ファ イル の i バ イト 目 か ら s$ の 長き だ け デ ー タ を ファ イル 
に 書き 込み ます . 

@ 較 2.7.4 (a) 送信 側 フ ロー チャ ー ト 


送信 開始 信号 送信 







retryretry 十 1 





送信 終了 信号 送信 
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e 図 2.7.4 (b) 受信 側 フ ロー チャ ー ト 
| 送信 開始 信号 待ち 






EOTflag ぐ ご true 












ファ イル サイ ズ 受 信 
デー タ 部 受信 
サム チェ ッ ク デ ー タ 受信 


Se 
ErrTlag<true ETX で ある 






] レッ コー ド 愛 信 








送信 終了 信号 送信 
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@ リ スト 2.7.2(a) 送信 プロ グラ ム 


DECLARE SUB MakeRecord (Size!, s$, t$) 


CONSFT EOT = 4 'End of Transmission 伝送 終了 文字 
CONST ENQ = 5 "Enquiry 問合せ 文学 

CONST STX = 2 "Start of Text テキ スト 開始 文字 
CONST ETX = 3 "End of Text テキ スト 閣 (文字 
CONST ACK = 6 'Acknowledge 育 定 応 答 文 字 
CONST NAK = &H15 *Negative acknowledge 人 否定 応答 文字 


・ CONST BufSize = 128 


・ DI 前 x AS STRING * BufSize 
・ MI 前 1 AS LONG, FileSize AS LONG 


・filename$ = COMMAND$ 

・ JHF LEN(filename$) = 0 THEN 

PRINT "ファ イル ネー ム が 必要 で す 。 形式 : send2filename.exa" 
END 

・ END !jF 


km テテ ロー ロロ ロロ ロビ ロビ ロー | 


も う 
= 一 


・ OPEN filename$ FOR BINARY AS #1 「 
・ OPEN "coml:1200,n,8,.1.BIN FOR RANDOM AS #2 


: PRTNT #2, CHRS (ENQ) : 
: DO 


a$ = INPUT$(1, #2) 
: LOOP UNTIL a$ = CHR$(ACK) 


RINT 同 線 は 接続 し まし た 。 フ ァイル を 送信 し て いま す 。 


31: FiieSize = LOT(1) 

32: PRINT Filesize= : FileSilze 

932 も サ は 

34: PRINT 

35: 0 寺 

36・ し 

47: 0 を | 、 !、 エメ 

38・ # = 1 + BUfS1Ze 

39・ TEF ji > FileSize THEN 

40: Size = FileSize MOD BufSize 
41 : TF Size = 0 THEN Size = BufSize 
42・ ELSE 
43・ Size = BufSize 

44: END IF 

45・ CALL MakeRecord(Size, X, {t$) 
46・ 

47・ retry = 0 


48: again: 


49・ FOR ] = 1 TO LEN(t$) 

50・ Z$ = MID$(t$, ]), 1) 

9 ま ^ PRINT RIGHT$("0 + HEX$(ASC(z$) ) , 2): 
お PRINT #2、 MID$(t$。]), 1): 
59・ FOR k = 1 TO 400: NEXTk 

54: NEXT ] 

55・ 8$ = INPUT$(1, #2) 

56・ TF a$ = CHR$(EOT) THEN EXIT DO 
に 党 名 THF a$ <> CHR$(ACK) THEN 

58: retry = FTetrY+ 1 

59・: THF retry < 6 THEN GOTO again 
60 EXIT DO 
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61・ END IF 

62: LOOP UNTIHL ji > FileSize 

63: PRINT #2, CHR$(EOT ) : 

64 : 

65: CLOSE #1 

66: CLOSE #2 

67・ FE a$ = CHR$(ACK ) THEN 

68・ PRINT 肖 信 は 上 共和 徐 し まし た 。 

69: ELSE 

70: FRNINHT 送信 は 異 省 終了 し まし た 。 

71: END IF 

滞 

73・ PRENT 

74: END 

オ ( 

76: SUB MakeRecord (Size, Ss$, {t$) 

すす ・ t$ = CHR$(STX) + CHR$(Size \ 256) + CHR$(Size MOD 256) + LEFT$(s$, Size) 
78: Sum = (ASC(MID$(t$, 2, 1)) + ITTTT「 3。 1)) ) AND &HFF 
79・ FOR ] = 1 TO Size 


80 : CcC = ASC(MID$(s$, ]), 1) ) 

81 : Su = (Sum + C) AND &HFF 

82・ PRINT RIGHT$("0 + HEX$(c), 2): 
83: NEXT ] “ 

84: t$ = t$ + CHR$(Sum ) + CHR$ (ETX ) 

85: END SUB 「 

86・ 


@ リ スト 2.7.2(b) 受信 ブロ グラ ム 


・ DECLARE SUB RecvRecord (Size!, EOTflag!, ErrFlag!, s$) 


・ CONST EOT = 4 "End of Transmission 伝送 終了 文字 
CONST ENQ = 5 「EnQquiry 問合せ 文字 
CONST STX = 2 "Start of Text テキ スト 開始 文字 
CONST ETX = 3 "End of Text  。 芝 キ スト 終 「 げ 文学 
CONST ACK = 6 'Acknowledge 育 定 応答 文字 
CONST NAK = &H15 'Negative acknowledge 人 否定 応答 文字 
CONST False = 0, true = NOT False 

・ CONST BufSize = 128 


・ MDI 有 I x AS STRING * BufSize 
・ DEM SHARED 1 AS LONG 
・ DI FileSize AS LONG 


・filename$ = COMMAND$ 

・ IF LEN(filename$) = 0 THEN 、 

PRINT "ファ イル ネー ム が 必要 で す 。 形式 : recv2 filename.exa" 
END 

・ END IF 


・ OPEN filename$ FOR BINARY AS # 
・ OPEN “coml1:1200,n,8,.1.BIN" FOR RANDOM AS #2 、 


・ 択 ) 

a$ = INPUT$(1, #2) 

・ LOOP UNTIL a$ = CHR$(ENQ ) 

・PRINT "回 線 は 接続 し まし た 。 デー タ を 受信 し ます 。" 


KN> ト Sh5kokhokok5h5> ト > テロ ビー ビビ ロビ ロビ ロビ ビーロ 「 
oda の ocCCh ト トー の Oooa の の mm ぬ ccotopm と と OO ココ の の の いや ピ 


ノ 3? 


30: PRINT #2, CHR$(ACK): 

は ま 2 

32: EOTflag = False 

いと 二 六 

34: DO WHILE NOT EOTflag 

35: CALL RecvRecord(Size, EOTflag, ErrFlag, s$) 
36 : TF ErrFlag THEN EXIT DO 

37: LOOP 

38・ 

39: CLOSE #1 

40: CLOSE #2 

41: 

42: JEF NOT ErrFlag THEN 

43・ PRIII 生 人 は 比 第 終 人 し まし た 。“ 
44:・ ELSE 

45: ENT 生 用 は 王族 用 /) し まし た 。 
46: END IF 

47 : 

48: END 

49・ 

50: SUB RecvRecord (Size, EOTflag, ErrFlag, Ss$) 
の まり DI 半 C AS STRING * 1 

52 

53・ Tetry = 0 

54: agaihn: 

け は な) ErrFlag = False 

56・ - 委 。0 

りく ? 

58: C = INPUT$(1, #2) 

59・ TF c = CHR$(EOT ) THIEN 

60・ EOTflag = true 

61 : EXIT SUB 

62・ END IF 

63: TF c <> CHR$(STX ) THEN 

64・ ErrFlag = true 

65・ ELSE 

66・ だ た EERE 、( 

67・ C = INPUT$(1, #2) 

68: Size = 256 w ASC(C) 

69: Summ = ASC(C) 

70・ C = [INPUT$(1、#2) 

8 和 y Size = Size + ASC(C) 

も Sum = SU + ASC(C) 

ん 人 PRINT “RecSize=": Size 

74 : Cout = 0 

わり DO WHILE count < Size 

TF count MOD 16 = 0 THEN PRINT ”".: 
りか C = INPUT$(1 , #2) 

78: 8$ = 8S$ + C: CoOUnt = Count + 1 
79: Summ = (Sum + ASC(c) ) AND &HFF 
80・ LOOP 

81 : C = TNPUT$(1, #2) 

82・ Sum = Su XOR ASC(C) 

83: TF Sum <> 0 THEN ErrFlag = true 
84: C = INPUT$(1 , #2) 

85・ THF c <> CHR$(ETX) THEN ErrFlag = true 
86 : 』F ErrFlag THEN 

87: TetrY = FetrY + 1 

88: IF retry < 6 THEN 

89: PRINT "Retring...": retry 


トブ 


グ 
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(の PRINT #2, CHRS(NAK): (0 
_ 生 。 GOTO again 」 ーー 
_。 | ELSE ーー ーー 
、 93 PRINT #2 , CHRS(EOT): ーー 
_ 還 PRINT CHRS(7): OR(7): "Over trias, Aborted。 。 
| 取 「 
、 kh 6 9146 0 
99 、 MI 2 CHRS(ACK): 
40 0 ド _ 
101 DU 
102: END SUB_ ーー 
103: ( 
⑩ 実 行 万 法 


送信 側 の プロ グラ ム の ファ イル 名 を SEND2 . BAS。 受信 側 の それ を RECV2.BAS 
と し て 。 実行 ファ イル を 作成 し ます . は じ め に 受信 側 プ ログ ラム を 。 


REOV2 ファ イル 名 
と し て 起動 し 。 その あと に 送信 側 の プロ グラ ム を 。, 
SBND2 ファ イル 名 品 


と し て 起動 し ます . 受信 側 プ ログ ラム を 起動 し て , 送信 側 プ ログ ラム の 起動 まで 
の 間 に 時 間 が あき すき ぎ きると, うま く 動 か な いこ と が あり ます . 


p./.4 電話 に よる ファ イル 送受 信 の 実例 


コン ピュ ー タ に モデ ム を 接続 し , 電話 を 介し て ファ イル を 送受 信 す る 具体 的 な 
例 を 紹介 し ます 。, 用 意 す る も の は 。 モデ ム と 。 コ ンピュータ と モデ ム を 接続 する 
ケー ブル , お よび モデ ム を 電話 回 線 に 接続 する コー ド です. これ ら の コー ド は , 
通常 , モ デム を 購入 する と つい て きま す . 

接続 は 。 モデ ム の 取り 扱い 説明 書 に 従っ て 行い ます . 注意 すべ き 点 は , こち ら 
側 と 相手 側 の モデ ム の ボー レー ト を 合わ せる こと で ,。 これ が 一 致し て いな いと 送 
受信 は で きま せん . 
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現在 市 販 さ れ て いる モデ ム は へ ヘイズ コマ ンド (AT コマ ンド ) を 採用 し て いま す . 
この コマ ンド は , 文字 AT で 始ま り ま す ( 例 外 も ある ). AT は Attention( 三 注意 ! ) 
の 意味 で 。 モデ ム の 動作 確認 で す . 

自動 発信 させ る 場合 , 本 来 は 相手 も モデ ム で ある べき で す が , モデ ム の テス ト 
と モデ ム に 慣れ る 意味 で , 時 報 と か 天気 予報 な どの サー ビス 電話 を 呼び 出し て み 
ます . プロ グラ ム は 次 の よう に な り ま す . 


OPEN "COM1 : 1200, N, 8, 1, BIN" FOR RANDOM AS 
PRTNT #2. "AT'" 
DO 
LINE INPUT #2. 2$ :PRTNT の $ 
LOOP UNTTL の $= "OK" 
PRINT #2. "ATD177" 
DO 
LTNE INPUT #2, 2$ :PRINT Z$ 
LOOP UNTTL, の $= "NO CARRTER" 
CLOSE 
EN 
は じ め に ,。 コマ ンド “AT” を モデ ム に 送り ます . モデ ム が 動作 可能 な ら ば 。 返 
事 ( リ ザル トコ ー ド と 呼ぶ ) “OK” を 返し て きま す ( リ ザル トコ ー ド が 数 字 で 返っ 
て くる よう な 場合 に は 。 コ マン ド V を 調べ て くだ さい ). それ を 確認 し た あと に 。 
AT に 続け て コマ ンド D と 3 桁 の 番号 177 を 送り ます . する と , 自動 的 に ダイ アル さ 
れ て 相手 が 出 ます . 
モデ ム と し て は 相手 が モデ ム だ と 考え て , 接続 を 保持 し よう と し ます が ,。 実際 
は 天気 予報 の 音声 な の で ,。 約 30 秒 で 接続 保持 を あき ら め , キャ リア 信号 が 見 つか 
ら な いと いう 意味 の “NO CARRIER” と いう 返事 を 返し て 接続 を 切り ます . 
使用 する 電話 が 。 ダイ アル 方 式 か プッ シュ ホン 方 式 か で 。 上 の プロ グラ ム が 動 
か な いこ と が あり ます . それ を 区 別 す る に は , ダイ アル コマ ンド を , 
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ATDP177… パル ス ダ イ アル (ダイ アル 式 ) 
ATDT177… トー ンダ イア ル ( プ ブッ シュ ホン 式 , “ピッ ポッ パ ” の タイ プ ) 


と パラ メー タ P ま た は T を 付加 し ます . 

また , 電話 が 0 発信 な どの 場合 , 0 を 回 し て か ら 外 線 と つなが る 間 に 時 間 が か 
か り ま す . その と き に は , パラ メー タ “。” を 入れ る と, 3 秒 ほ どの ポー ズ が あき 
ます 。 すなわち , 


ATDP0,, 177 … パ ルス ダイ アル で , 0 を 回 し て , 約 6 秒 し て か ら 177 を 
ダイ アル する 


の よう に し ます 。 






タ S0 の 値 を ゼロ で な い 数 値 に セッ ト し ます . ここ で は , S0 の 値 を 2 と し ます . す 
る と 。 着信 時 に ベル が 2 度 鳴る と , 受話 器 を 取り 上 げた と 同様 の 動作 (オフ フッ ク ) 
を し 。 相手 側 に キャ リア 信号 を 送り 出し ます . プロ グラ ム は 次 の と お り で す 。 


PRINT 2 "ATS0=Z" 





RECV2.EXE を 利用 し て 。 モ デム を 介し て ファ イル の 送受 信 を 行う 簡単 な と ステ 
ム を 構成 し て み ま す ., 次 の よう な 手順 で 実行 する こと を 想定 し ます . 


( 1) 人 が 電話 を か ける . ファ イル 送信 側 と 受信 側 を 打ち 合わ せる . コン ピュ ー 
タ と モデ ム の 電源 を 入れ る . いっ た ん 電話 を 切る . 


(2) 送信 側 の 手順 は 次 の と お り . 
送信 側 セ ッ ト プ ログ ラム SSET. EXE を 起動 する . 
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A>SSH 工 


ベル が 2 度 ほ ど 鳴 り 。 そ の あと 。 FAX の 接続 時 に 似 た ピー と いう 音 が し た 
あと に 。 モデ ム 同 士 が 接続 する . 
メッ セー ジ 


Type SENDZ2 FILENAME 
が 現れ た ら 20 秒 ほど 待っ て か ら , SEND2.EXE を 起動 する . すなわち , 
> SEEND2 ファ イル 名 


終了 メッ セー ジ が 表示 され た ら モ デム の 電源 を 沙 と す . 
(2)′ 受信 側 の 手順 は 次 の と お り . 
受信 側 の セッ ト プ ロ グラ ム RSET. EXE を 起動 する . 


A> RSEHT 


電話 の ダイ アル 音 が し て ,。 つ いで 呼び 出 し 音 が 2 度 ほ ど 鳴 る と , FAX の 接 
続 時 に 似 た ピー と いう 音 が し た あと に , モデ ム 同 士 が 接続 され る . 続い て 2,3 
の メッ セー ジ が 表示 され , 最後 に , 


Type REOCVZ FTLENAME 
と 表示 され る . そう し た ら ,。 すみ や か に , 
A>RECVZ ファ イル 名 


ら も が オア する 。 


相手 が SEND2 プ ログ ラム を 実行 し て か ら RECV2 が 実行 され る と 。 フ ァイル 
の 転送 は 行わ れん な い の で 。 10 秒 以上 の 時 間 を あけ な いよ うに する こと . 
終了 メッ セー ジ が 表示 され た ら モ デム の 電源 を 落とす .。 


( 3 ) 電話 を か け て , ファ イル の 送受 信 を 確認 する . 


以上 の 手順 で ファ イル の 送受 信 を 行う た め の プ ログ ラム , SSET. BAS と RSET、 
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BAS の リス ト を リス ト 2.7.3(a),。 (b) に 示し ます 。 コン パイ ル し て 。 EXE フ ァイル 
と し て 便 有 用 し ます . 
電話 回 線 の 不調 な ど で 通 信 が うま く 行 われ な く , コン ピュ ー タ が 何 も 受 けつ け 
な い 状 態 に な っ た ら , モ デム の 電源 を 切り , RS-232C 用 コネ クタ を 外し て くだ さい 、 
プロ リ ロメ タム は 。 


デバ イス か ら の 応答 が あり ませ ん 


な どの メッ セー ジ を 出し て 終了 し ます . 


人 ⑱ プ ログ ラム の 改良 に つい て 

ここ で 作成 し た RSET. BAS と SSET. BAS は , それ ぞ れ RECV2 .BAS と SEND2. 
BAS と 一 体 に し て 使用 する こと も で きま す . 変更 は 容易 なむ な ので, プログ ラム リス 
ト を 載せ る こと は し ませ ん . 

また , コマ ンド を 研究 すれ ば , 終了 後 目 動 的 に 電話 に 戻す こと も 可能 で す 。 そ 
れ ら は 読者 の 盲 さん の 課題 と し て お きま す . 
@ リ スト 2.7.3(a) 薄 信 セッ トブ ログ ラム 
atitrit ji 
iCONETCK-19 _。 
: CONST falSe 0, true = NOT false _ 


OL9_ 、 ー ピ | ピ 
: OFEW "com1 : 1200 R, 8, 1 . PD FOR RANDON AS 


: PRINT 幸 。 "ATS0= 2" | 'set ーー NMode amd wait twice ca11 


_8$ = TNPUTS(1. #2 ) : PRINT 8$・ 
12: LOOP UNTIL a$ = CHRS(ACK) 


= つ 


15: PRINT "Connected. . ーー 

16: FOR i = 1 TO 1000: NEXT i ' 

17: PRINT #2, 受信 の 用 意 を し て 下さ い 。 
18: FOR 1 = 1 TO 1000: NEXT i 

19: PRINT #2。 送信 を 開始 し ます 。" 
20: FOR 1 = 1 TO 1000: NEXT i 

21 PFKIT 。 

22・ PRINT #2, 

23: PRINT "Type 'SEND2 FILENAME'" 


25: CLOSE#2 
26: END 
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リス ト 2.7.3 (b) 送信 セッ トブ プロ グラ ム 





て つこ < ン い 


の 


ジン っ 
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./.5 注意 事項 


トノ 


ダグ 


(1) 本 章 で は , ボー レー ト を 1200 ボ ー に し て あり ます が 。 コ ンピュータ に よっ 
て は , 処理 が 間に合わ な い 場 合 が あり ます . その 場合 に は , 送信 側 プ ログ ラ 
ム の 1 文字 送信 の あと に お か れ て いる , ダ ミー の FOR ルー プ の ルー プ 回 数 を 
多く し て くだ さい (リス ト 2.7.2(a) の 下 の 部 分 ) 


52: PRINT #, MIDS(t$, jj, 1) : 
53: EROR k=1 TO 1 :NEBXT k = この ルー プ を 加減 する 


(2) QB 以外 の 言語 で は , ボー レー ト の 設定 を プロ グラ ム 中 か ら 行 えな い 場 合 も 
あり ます . また , 他 機 種 の コン ピュ ー タ で は 。 ボー レー ト や 語 長 な ど を 与え 
る パラ メー タ の 形式 が 異な っ て いる こと が あり ます . その 点 に 注意 し て くだ 
き とら の は 。 


ボー レー ト 1200 ボ ー 
語 長 8 ビッ ト 
/ り 学 イ 由 有 ト 恋し 


スト ッ プ ビッ ト 1 


と な っ て いま す 。 





情報 交換 用 の 文字 コー ド の うち , 00 か ら 1FH の 32 個 は 非 図形 文字 コー ド で , 制 
御 コ ー ド と 呼ば れ て いま す . それ ぞ れ に 名 前 が つけ られ て お り , 7 は BEL で あっ 
て 。 こ れ を プリ ンタ や ディ スプ レイ に 送る と , ビー プ 音 が 鳴り ます . 13 は CR, 10 
は LF な ど は よく 知ら れ て いま す . 本章 で 用 いた コー ド は , その ほか に ACK, EOT, 
NAK な ど が あり ます ., 記号 と 名 称 を 次 ペー ジ に まとめ て お きま す . 


24/ 
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HI 


Acknowledge 


Bell 
BacksDace 


Cancel 
Carrige Return 


Delete 


Date Link Escape 
Endqulry 

End of 「ransmission 
EscaDe 


End of Transmission Block 


End of Text 


Negative Acknowledge 


Start of Heading 


Start of Text 


Synchronous Idle 


定 応答 


取消 

復帰 

抹消 

伝送 制御 拡張 
問い 合わ せ 
伝送 終了 

払 張 
伝送 ブロ ッ ク 終 了 
テキ スト 終結 


和 定 応答 


ヘッ ディ ング 開始 


テキ スト 開始 


避 
I 員 


ロ 
kr 


送信 側 に 対す る 育 

な 応答 
注意 を 喚起 する 

1 キヤ ラク タ 分 後退 さ 
せる 
先行 デー タ の 取消 
同一 行 の 先頭 に 戻す 
誤り の 除去 

伝送 制御 機能 の 拡張 を 
指示 
相手 の 応答 の 要求 
テキ スト の 終了 を 表す 
制御 機能 の 拡張 に 用 い 
る 


分 割 さ れ た ブロ ッ ク の 
終結 を 示す 

一 個 の テキ スト の 終結 
を 示す 

送信 側 に 対す る 人 否 定 的 
な 応答 

ヘッ ディ ング の 最初 の 
キャ ポラ タグ タ と し て 用 い 
る 

テキ スト の 最初 の キャ 
クチ 。 Py ディ シル ダグ 
の ある 場合 は その 終結 
他 の キャ ラク タ を 伝送 
し な い 場 合 に 同期 を 取 
る た め に 使用 する 
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記号 英 数 字 項 目 


AVL- 木 補注 池 : ] 50. 197 
BASIC / Em ] ] 
BetterBASIC- 上 ドド に 1② 
CBASIC ーー | 拉 2 
COMMON SHARED 和 … ビ ee に に ee ご 4], 52 
電信 nrWOOPY 和 RA22023 が SPRY ] ] 
半生 229 
EXE ファ イ ル の 作成 導電: 130 
FUNCTION ドー 18 
章 科 信和 ] ] 
Ni ドド で 62 
RS-232C 層 和 ドド ドド トト に し し し し 228 
計 入 人 rPYYaYerneePYeetaveweYsmRP8 12 
SHARED…tーーi に IT 4] と 6] 
SUB ーー ドド 18 
TINY BASICO … ーー 10 
NT 1 PORORDZRERE0S2S の は 53 ] ] 





後 判定 ルー ブー の ] 
] 重 回 転 ooooocooeoeosoeoeoeeeeeeoeoeeeeeeeeeoeooooeeeeeeeeeeeeeeese 200, 2()3 
] 方 向 リ ンク 表現 oesoeoeeeeooeoooeoeeoeoeoeoeeeeeeeeeeeoeeeeeeeeeeeeeoeee 6 | 
イベ ント トラ ッ ピ ング 1ー ニ の ee 55。 182 
入れ 子 構造 966:w る な で 生き: の の 8 る が る 9 るる ei のめる な: すめ 6 ので る る 3 1 
イン サー ショ ン ソ ー ト cocooeeeeooeeseeeeeoeeeeooeeoeeeeeeeeeeeteeeeeee 9 
イン タラ ブ 【 ト 命令 一 … 上 上 の の …… ド に に 1]13 
エラ ー ト ラッ ピン グ om で mee ermcavoesczzeorx 54。 162, 182 
親 ea 86 


ee 92 
YY 3 ん 
間 人 2C200S BBaS 3 の 
層間 浅生 iz 3 の 
人 人  fotWPPRGf3RRDP2HPRRAAP 本 BR 192 
前 18 
Pe met treedrreeeaoRrePYy の CYSRYPEVSPY68X2 ザ GRG 86 
HORSE ンク 』 
和 和 ee 36 
記号 定数 の 有効 範囲 eeeseeoeooee eee る る eeeseeseeeeee る oe る eS ぷる る る eeeee る の 3/ 
二 の 0 箇 24oeeeaw 197 
eee 133 
人 の 6 な WSERORBORIH295S200RRRRG 時 SEE 133 
時 75 
グ 他 丈 j デア レンス MCPCSHPREGRNRKGHn 183 
人 Rm 1 半 SGKYOWEEKG30330S5PR98DSRAKEA63SX529 218 





251 








252 


グロ ー バ ル 変 数 moo 41 
ee 86 
後 順 トラ バー サル O4 
回 定 長 文字 ii 1 6 
回 定 長 文字 列 弄 39 


再帰 = アウ 
再帰 的 構造 計る 0 ああ あの: きす 6 びな ちる: る 9 あす な や: 6 8/ 
再帰 的 呼び 出し し に し … ド ooo 72 
サ プ プ ログ ラム ドド ドド < ドド トト ドッ くい に し くく くく しく らく 18 
サ プ ゾ モジ ュー ルレ ドド ドド < ドド にし くに くる し 2 し と 37。 47 
サ プ ブルー チン ーー ドド ドド に に に に に に 19 
シー ケン シャ ルフ ラテ ァ テイ ルド た 44 
シス テム コー ルド oo に に に ] 14 
シフ ト JIS コー ドド 0 で oo 192 
自由 リス ト で で で oo 64。 88 
還る の の ん 
推論 ii 22() 
東 嫌 上 の 電波 基 ( 沈 汰 浪 束 0 39 
静 的 ($STATIC) 配 列 ぐー ドド ioomeeenrrnrere… 19 
SSCCCCCCCCCPEPEPPPPEPPPPPPPPPPPPPEEPPPEPPEPPPPEPPPPPPEPPEEREE 61。 86 
セレ クシ ョ ン ソ ゾー トト の の ドド < ドド oreeterereeseeeeeeeeeoos 84 
線形 リス トー 60 
先 順 ト ラベ ボー ニー サ ルー ドド に に に O4 
選択 構文 で Oo 33 
前 提 上 iT 221。 229 
た PTPPRPTPPTPPPPPTPPPPTPPPPPPPPPPCPPPPYPPPPPPPPPYPPr 『e い 


IN 。 ナー FallNeaRMNMNNMWNIN 了 全員 


対称 トラ バー サル に 94 
タイ マー トラ ッッ ピン クー 1 62 
= 人 197 
単 精度 実数 と と ん て て LACLK と KTALKAKKY KK LKAYKX LC と KK スエ 3 の 
ダイ ナミ ッ ク バ ラン ス 森 ・ to 197 
長 団 数 ooo 39 
長 団 数 電 oo 39 
俺 目 和 業 件 oo 7 
トラ バー サル の に に に 93 
動 的 ($DYNAMIC) 配 列 … で で eeer 19 


人 MNT eeMMNPWUHMRMMNMENM 


2 重 回 iii 203。 206。 207 
2 バイ コー ドキ ーー ドド 0 で oo ] 29 
2 バイト の コー ドド 0 に oo 190 
2 バイ ト の 文 守 oeoeoeeoeeee ] 29 
の アム 4 7 お い 9 還 還 CCCCCCCECECCECPPEPPYCPPPEPPCECETEPECEPCEECEPEETPECPTP 135 
2 人 iii 86 
2 分 検索 上 …… 上 tw に に に 96 
2 人 ] 26 
2 方 向 リン ク 表 現 ーー ドド 6] 


葉 すす 86 
倍 精度 実数 (本: 生生 39 
バイ ナリ サー ナチ ooo 1 26 
パプ ブル ツー トド 0 82 
バラ ンス 本 に ドド 150, 198 
た ー シ 0 導 CCCOCCCCUUCPCCPCPPPPEETPTTPPPPPPPPPPPPPPPPEPEEPREPEEPPPRPPPPF 18 
引数 ii 18 








253 








254 


非 文 字 列 記憶 領域 …i……0 ド の 2 
ラ ァ ジイ he 2] 6 
ラ ァ ジィ 集合 ii 218 
ファ ジィ 集合 の 重 人 iT 2 の ] 
ファ ジィ 推論 …… ド ドド 2]9 
部 分 森 …O に oo 87 
分 岐 構造 ooo 29 
プリ ンタ の 制 促 oh 125 
ロロ シー 人 ゲ 入 や やや eee* で esse 18 
セー。 陸 )) WW SN 人 59 人 228 


前 判定 ルー プク の ] 
無限 ルー プ …… ド ドド ドド 26 
オン や ュー ルト ee<aevecevneeveaeawewioaesgds 37。 47 
メン バー シッ プ 関 数 上 oo 218, 222 
ea 18, 37。 47 
旨 和 mM レ の MM 9 ーー MNOYeWifnvwftteeN2tNOMGNSKpe 37 
文字 39 
文字 列記 憶 領域 …( 僧 …ー ド ドド 2 
モモ 228 


RTR や ブ ら / ノ 1) EER 


有効 範 凍 本当. 深雪 6] 
ュー ザ 定 義 弄 oo 39。 41 
カタ ング ダム アク セス ファ イル ooeeeeoeeoeeee 44 
リ 実 ト ooooeeeoeooeeeoeeeeeeeeeeeeeoeeeeeeoeoeooeoeeeoeeoeeeeeeeeoeeeeeeeeeeeee 6() 
リン クタ 表 現 太 … の ii 6] 
ルー プ か ら の 肝 出 26 
間 6 220。 223 
コー ド 美 凍 teeo く ceo mer を を 43 
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